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- Select VT100/VT200 mode 
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._ Printer control operation 

- Erase within a line 
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- Suspend job until it reattaches to terminr?,! 

- Erase the current line 
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- Erase from beginning of line 

- Erase from cursor to the end 

- Erase from beginning of page 

- Clear entire page to spaces 

- Clear a line to spaces 
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- Get attributes for current line 

- Select a line as current line 
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~ Generate CSI character sequence 

- Send a character to the terminal 

- Convert value to digits and send 
~ Dispatch window control EMT ' s 

- EMT to create a new window ^ 
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Locate control block for a luindouj 

Create named region for window screen buffer 

Make a region definition block 

Free memory used by window screen buffer 

TSWIN initialization 

Window print-screen function 
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000000 
000000 



1 1 0466 



. TITLE TSWIN — TSX--Plus Display Windows 

. ENABL LC 

. fI^4ABL AMA 

. DSABL GBL 

. CSECT TSWIN 

rSWIN: . RAD50 /WIN/ iOverlay region id 

TSWIN is the TSX-Plus system overlay that provides display uiindoui support. 

Copijrifjht (c) 1985. 
SS<H Computer Systems^ Inc. 
Nashville; Tennessee USA 
All rights reserved. 

Global definitions 



. GLOBL WINCHR, EM) WIN. WININI- WINREL. 
. GLOBL WINST, WINSF, WINPRT 

Global references 



WINDBP 



GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
GLOBL 
, GLOBL 



LSWl 1, $V52EH, LNPRIM 

LSTSL, LPRGl, LPRG2. LBRKCQ. NMFREQ, GETRTQ 

lOQSIZ, CQ*R1, QCOMPL, VALADW, VALADB 

P2*CXT, PRIVC2> *SBIT, LSW2, AW^PRT 

RCfEXC, RCfFLG, LOTSIZ, LOTSPC, LOTNXT, LOTPNT 

$CTRLO, LSW3, *RFRSH, LSW4> AW*SPN 

$WDISP, LSW6. S*OTWT, LSTATE, RC*BLK, RC*CNT 

$VNOTT, LSW, PCSPND. FRKPRI. FORCEX 

DW*CSB, DW*C£^R, DW*CSP> TCS8SZ, LWINDO 

ESC, CSICHR, SS3CHR, AW«52, DW*AW, BUFCHR, AW*S52 

KPAR6. VPAR6, OVRHC, INTPRI, PSW, PR7 

DW*CCA, DW«COL, DW«CPL, DWfLIN, DW*SRB 

DW$SRT, DW*LPP, DW*TLN, DW*LPT, DW*MAP 

DW*RID, DW«JOB, DW*ID, RC*BAS, R. GID 

R. GSIZ, R. GSTS, R. NAME, RS. CGR, RS. PVT 

RS. GBL, EHTBLK, SETERR, EMTXIT. RS. EGR 

DW*$SZ, CR, LF, AC*BLD, AC*BLK, AC*REV 

CORUSR, AC*ULN, AL*DHT, AL*DHB, AL*DWD 

BUFCHR, VMXWIN, VT52, VT2007, VT200S, LTRMTP 

AW*200, AW* 132, AW* INS, AW*ACK, AW*REV, AW*ORS 

AW*AKM, AW*VCR, LSW7, *SLON, *SLKED, LCOL 

AW*PRM, *DETCH, LSW, LSW6, *WDISP, AW*RPT 

AW*SS, DW*GLS, DW*GLM, DW*GRM, AC*SET 

DW*MSL, DW*NSL, AW*DDC 

DWSGOM, DWfGlM, DW*G2M, DW*03M 

DW*SLN, DW*SCL, DW*SCA, WINTOP 
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3 

4 

f-j 

6 

7 

S 

9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 

43 
44 
45 
46 
47 
48 

49 000002 

50 000004 

51 000006 

52 000010 

53 000012 

54 000014 
55 



000073 

015050 
000000 
000000 
i 10466 
063344 



Macro definitions 

Macros to enable and disable interrupts 



. MACRO DISABL 
BIS #PR7, "g!#PSW 
. ENDM DISABL 



i Disable interrupts 



.MACRO ENABL ; Enable interrupts 

BIC INTPRI.e#PSW 

. ENDM ENABL 

Macro to call a system ovc?rlay 

. MACRO OCALL LN'I ADD 

.IF B, ENTADD 

.ERROR ; OCALL withaut entry address 

. ENDC 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 

Macros to map to screen buffer and restore mapping 

. MACRO BUFMAP 

DISABL 

MOV @#KPAR6, MAPHLD 

MOV DW*MAP ( R2 ) , e#KPAR6 

. ENDM BUFMAP 

. MACRO UNMAP 



MOV 



MAPHLD, @#KFARi 



ENABL 

. ENDM UNMAP 

Macro to send a character to the terminal 

. MACRO SEND CHAR 

MOVB CHAR, RO 

CA1..L GENCHR 

. ENDM SEND 



Data areas and parameters 



SEMI 



73 



DWBAS: 


. WORD 


WINTOP 


DWEND: 


. WORD 





MAPHLD: 


. WORD 





R50WIN: 


. RAD50 


/WIN/ 


R50PRT: 


. RAD50 


/PRT/ 


CSBUF: 


. BLKB 
. EVEN 


16. 



; Semicolon 

i Pointer to 1st u^indouj control block 

j Pointer past last utindouj control block 

i Temp cell used by BUFMAP/UNMAP macros 



J Cursor string work buffer 



I 

c 
i 
i 
I 

i 
i 
i 

i 
i 
€ 

i 
i 
i 
i 
t 
i 
i 



TSWIN - 
WINCHR 
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1 
2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
c^a 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



SBTTL WINCHR 



Process next output character 



This routine is called to process each character sent to the terminal 
by a running program. it determines if the character is part of an 
escape sequence or is a regular character. 

Inputs ; 
RO = Character being sent. 
Rl = Job index number. 

Outputs: 
C-flaq set ==> Do not send this char to terminal now. 



000034 010046 

000036 010246 

000040 010546 

000042 010005 



000044 016102 OOOOOOG 



000050 032762 OOOOOOG OOOOOOG 
000056 001045 



000060 032761 OOOOOOG OOOOOOG 

000066 001002 

000070 042705 177600 



000074 105705 
000076 001427 



000100 004737 000510' 
000104 103024 



000106 016200 OOOOOOG 

000112 00140H 

000114 004710 

000116 000417 



WINCHR: MOV 
MOV 
MOV 
MOV 



RO, -<SP) 
R2, -(SP) 
R5, -<SP) 
RO, R5 



; Carry character in R5 

Get pointer to current ujnriouj control bloci< for job 

MOV LWIND0(R1 ).• R2 ; Get pointer to window control block 

See if processing is suspended for this window 

BIT #AW*SPN. DW*AW<R2) J Is window processing suspended? 

13NE 8* i Br if yes — Just pass through the char 

Mask character to 7 bits unless 8 bit support has been enabled 



BIT 
BHE 
BIC 

Ignore nulls 

1 * : TSTB 
BEG 



#*8BIT. LSW2<R1) 

1* 

#--C<177;>, R5 



R5 
7* 



Is S bit char support wanted? 

Br if yes 

Mask character to 7 bits 



; Is character null? 
; Br if null 



Determine if this character begins a terminal control sequence 



CALL 
BCC 



WCSCHK 
7* 



; Check for control sequence start 
; Br if start of control sequence 



See if we are currently accepting a terminal control sequence 

Are we processing a control sequence? 
Br if not 

Call routine to process this character 
Finished with this character 

If output is being directed to the terminal printer port, then 
don't update window image with this character. 



MOV 


DW*CSR(R2),R0 


BEIQ 


3* 


CALL 


<R0) 


BR 


7* 



000120 032762 OOOOOOG OOOOOOG 3$: 
000126 001013 



BIT #AWtPRT, DW*AW<R2)i Is output going to printer? 

BNE 7* i Br if yes — Bypass window update 



Determine if this is a normal or control character 
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000130 
000132 
000136 
000142 
000144 
000150 



010500 
042700 
020027 
101003 
004737 
000402 



000152 004737 000204' 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

81 

82 000172 000241 

83 

84 

85 

86 000174 01260!"; 

87 000176 012602 

88 000200 012600 

89 000202 000207 



1 77600 
000037 

000370 ' 



MOV 


R5, RO 




BIC 


#••■•■€< 17 7.> 


, RO 


CMP 


RO, #37 




BHI 


4* 




CALL 


DOCTRL 




BR 


7* 





.: Oet the character 

j Ma 5 k to 7 bits 

i Is this a control character? 

; Br if not 

iProcess a control character 



4* 



ProcesB regular character 
CALL REGCHR 



iProcess a regular character 



i See if hse should display this character now 



000156 
000164 



000166 
000170 



032762 
00 1 402 



000261 
000401 



OOOOOOG OOOOOOG 7*: 



BIT #AW$DDC, DW*AW<R2>; Should me suppress char display? 
BEQ 8* ; Br if not 

We don't want to display this character 



SEC 
BR 



Signal to not display the character 



9* 



We want to display this character 



8*: CLC 
i Finis h e d 
9«: 



; Signal to display the character 



MOV 


(SP)+, R5 


MOV 


< SP ) +, R2 


MOV 


< SP ) +, RO 


RETURN 
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SBTTL REGCHR — Process regular characters 



3 








4 








5 








6 








7 








8 








9 








10 


000204 


010346 




11 


000206 


010546 




12 








13 








14 








15 


000210 


016203 


0000000 


16 








17 








18 








19 


000214 


016200 


0000000 


20 


000220 


005300 




21 


000222 


006300 




22 


000224 


060003 




23 








24 








25 








26 


000226 


116200 


0000000 


27 


000232 


032705 


000200 


28 


000236 


001013 




29 


000240 


1 1 6200 


0000000 


30 


000244 


032762 


0000000 OOOOOOG 


31 


000252 


001405 




32 


000254 


1 1 6200 


ooooooe 


33 


000260 


042762 


OOOOOOG OOOOOOG 


34 


000266 


060200 




35 


000270 


1 1 6000 


OOOOOOG 


36 


000274 


042705 


177600 


37 








38 








39 








40 


000300 


156200 


OOOOOOG 


41 








42 








43 








44 


000304 






45 


000326 


110523 




46 


000330 


1 1 0023 




47 


000332 






*tcJ 
49 








50 








51 


000346 


026262 


OOOOOOG OOOOOOG 


52 


000354 


103002 




53 


000356 


005262 


OOOOOOG 


54 








55 








56 








57 


000362 


012601"; 





Process regular characters which are stored into the appropriate 
cell of the character matrix. 



Inputs: 
R2 =•- Pointer to window control block 
R5 =• Character 



REGCHR: 



MOV 
MOV 



R3, -(SP) 
R5, -<SP) 



Get pointer to 1st character on current line 

MOV DW$LPT(R2), R3 J Get pointer to Ist char on line 
Get pointer to current character on the line 



MOV DW*CDL<R2), RO 

DEC RO 

ASL RO 

ADD RO, R3 



Get current column number 

Ist column is # 1 

Two bytes used per column 

Get pointer to char byte for current col 



Get number of character t.et for this character 



1*: 



MOVE DW*GRM(R2),R0 

BIT #200, R5 

BNE 1* 

MOVB DW$GLM(R2),R0 

B I T #AW*SS, DW*AW < R2 ) 

BEG 1* 

MOVB DW$GLS(R2),R0 

B I C #AW*SS, DW$A« ( R2 ) 

ADD R2, RO 

MOVB DW*GOM<RO),RO 

BIC #--C<177>, R5 



Assume character is in GR 

Is character in GR (8 bit character) 

Br if yes 

Determine which set GL is mapped to 

Are we single-shifting this character? 

Br if not 

Get single-shift mapping for char 

Reset single-shift flag 

Add base address of window control block 

Get char set for this character 

Mask character to 7 bits 



Get character attribute flags (bold, blinking, etc. ) 

BISB DW*CCA<R2).. RO ;Add character attribute flags 
Store character and attribute into that cell 



BUFMAP 
MOVB 
MOVB 
UNMAP 



R5, <R3) + 
RO, (R3) + 



Map to screen buffer 
Store character 

Store character attribute flags 
Restore mapping 



Advance column number unless we are at the end of the line 



9^ 



CMP 

BHIS 

INC 

F i n i s h e d 

MOV 



DW$C0L<R2}, DW*CPL(R2)i Are we at the end of the line now? 
9* j Br if at end of the line now 

DW*C0L(R2) ; Advance to next column 



<SP)+, R5 
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58 000364 012603 MOV <SP)+, R3 

59 000366 000207 RETURN 



TSWIN — 


- TSX-Pl 


u G Display Wind 


DOCTRL - 

1 
2 
3 


— Process control char 






4 






5 






6 






7 






8 






9 






10 


000370 




11 






12 






13 






14 


000370 


010500 


15 


000372 


042700 177600 


16 


000376 


006300 


17 


000400 


004770 000406 


IS 






19 






20 






21 


000404 


000207 


22 






23 






24 






25 






26 


000406 


000506 ' 


27 


000410 


000506 ■' 


28 


000412 


000506 •' 


29 


000414 


000506 ■' 


30 


000416 


000506 ' 


31 


000420 


000506 •' 


32 


000422 


000506 ' 


33 


000424 


000506 ' 


34 


000426 


002230 •' 


35 


000430 


002246 ■' 


36 


000432 


002454' 


37 


000434 


002454' 


38 


000436 


002454 ' 


39 


000440 


002306 ' 


40 


000442 


003516' 


41 


000444 


003526' 


42 


000446 


000506' 


43 


000450 


000506' 


44 


000452 


000506' 


45 


000454 


000506 ' 


46 


000456 


000506 ' 


47 


000460 


000506 ' 


48 


000462 


000506 ' 


49 


000464 


000506' 


50 


000466 


000506' 


51 


000470 


000506 ' 


52 


000472 


000204 ' 


53 


000474 


000506' 


54 


000476 


000506 ' 


55 


000500 


000506' 


56 


000502 


000506' 


57 


000504 


000506' 
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. SBTTL DOCTRL 



Process control characters 



Thir> routine is called mhon the character being output is a 
control character (000 - 037). 



Inputs: 
R2 = Pointer to windouj control block 
Rb = Character 

DOCTRL: 

Call processing routine for this character 



MOV 
BIC 
ASL 
CALL 

F i n j s h (? d 

RETURN 



R5, RO 

#-X<177:>>R0 
RO 
@CCRTN(RO) 



; Get the character 

iMask to 7 bits 

i Convert to word table index 

iCall appropriate processing routine 



Branch table for control character processing routines 



CCRTN: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

TCBS 

TCHT 

TCLF 

TCLF 

TCLF 

TCCR 

TCSO 

TCSI 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

REOCHR 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 

CCEXIT 



000 
001 

003 
004 
005 
006 
007 
010 
Oil 
012 
013 
014 
015 
016 
017 
020 
021 
022 
023 
024 
025 
026 
027 
030 
031 
032 
033 
034 
035 
036 
03? 



NUL 

SOH 

STX 

ETX 

EOT 

ENQ 

ACK 

BEL 

BS 

HT 

LF 

VT 

FF 

CR 

SO 

SI 

DLE 

DCl 

DC2 

DCS 

DC4 

NAK 

SYN 

ETB 

CAN 

EM 

SUB 

ESC 

FS 

OS 

RS 

US 



<ctrl-2) 



c 

TSWIN — TSX~Plus Display Windo MACRO V05. 04 Monday 21-Dec-87 07: 4f> Page 5~1 

DOCTRL — Process control characters.- 

58 i 

59 > Immediate return for most control characters 

60 ; 

61 000506 000207 CCEXIT: RETURN 



TSWIN - 
WCSCHK 



TSX-Plus Display Windo MACRO V05. 04 Monday 21~Dec-87 07:45 Page 6 
" Check for stirrt of control f-equence 



1 

3. 

3 

4 

5 

6 

7 

S 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

23 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 



000510 



000510 120527 OOOOOOG 

000514 001003 

000516 004737 000546' 



000524 120527 OOOOOOG 

000530 001004 

000532 004737 000600 ' 



000536 000241 
000540 000401 



000542 000261 



000544 000207 



. SBTTL WCSCHK — Ch^cli for start of control sequence 

This routine is called to determine if the current character begins 
a terminal control sequence. 

Inputs: 
R2 = Windou/ control bl{<ck. 
R5 - Current character 

Outputs: 
C-flag cleared ==> Start of control sequence 
C-flag set ==> Not start of control sequence 

WCSCHK; 

See if this is the start of an escape sequence 

; Is this character escape?" 

; Br if not 

j Begin escape sequence 

See if this character is CSI, beginning of VT200 control sequence 



CMPB 


R5,#ESC 


BNE 


1* 


CALL 


WCPESC 


BR 


8* 



1*: 



CMPB 


R5, #CSICHR 


BNE 


7* 


CALL 


WCPCSI 



We bBgar] a control sequence 



S«: 



CLC 
BR 



i CSI character?' 

J Br if not 

; Start VT200 control sequence 



Signal control sequence began 



9* 



We did not begin a control sequence 
7$: SEC i Signal that not control sequence 

Finished 
9*: RETURN 



005062 000000« 



TSWIN — TSX~P1. UiJ. Dispiay Windo 
WCPESC — Escape p roc (:>&•:- ing 



1 

2 

3 

4 

5 

6 

7 

8 

9 000546 
10 
11 
12 

13 000546 
14 
15 
16 
17 

18 000552 

19 000556 

20 000564 

21 000566 

22 000572 

23 000576 
24 

25 
26 
27 
28 
29 
30 

31 000600 

32 000606 

33 000612 

34 000616 

35 000622 



012700 
032762 
00 1 402 
012700 
010062 
000207 



000624 ' 
OOOOOOC 

000710' 

ooooooe 
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. SBTTL WCPESC — Escape processing 

Process an Escape character 

Inputs: 
R2 ~- Window control block 
R5 = Escape character 

WCPESC : 

Initialize control sequence buffer pointer 

CLR DW*CSP(R2) j Say no chars accrued yet 

Set address of routine to be called to process 1st character after 
e 5 c a p e . 

MOV #EPCH1,R0 ; Routine for Ist character after escape 

OOOOOOC BIT #<AW*52iAW*S52>, DW*AW<R2); Is terminal in VT52 emulation mode? 

BEQ 1* ; Br if not 

MOV #EP52, RO ;Set routine for VT52 mode 

1$: MOV RO, DW*CSR(R2) i Set address of processing routine 
RETURN 



012762 
00 5062 
112700 
004737 
000207 



Received a CSI control character for a VT200 terminal. 

Inputs: 
R2 = Window control block address 

000624' OOOOOOC WCPCSI: MOV #EPCH1 , DW*CSR <R2) ; Set address of routine for next char 

OOOOOOG CLR DW*CSP<R2) 'Say no chars accrued yet 

000133 MOVB #'C.RO ; Treat CSI char like ESC I 

001136' CALL ACRCS ; Store " C " as 1st char of sequence 

RETURN 



€ 



TSWIN — 
EPCHl - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
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" Accrue a teifiiinal control sequence 



000624 010546 

000626 042705 177600 



000632 010500 

000634 004737 001136' 



000640 120527 000060 

000644 103417 

000646 120527 000176 

000652 101014 

000654 120527 000133 

000660 00 1 4 1 1 

000662 120527 000100 

000666 103004 

000670 126227 OOOOOOG 000133 

000676 00 1 402 



000700 004737 001174' 



000704 01260r' 
000706 000207 



. SBTTL. EPCHl •- Accrue a terminal control sequence 

EPCHl is called to accrue a VTIOO or VT200 control sequence. 

Ther(? are two types of "control" sequences: 

Escape sequence format: ESC I. . . I F 

I = Intermediate character in the range 040 to 057 
F -- Final character in the range 060 to 176 

Control sequence format: ESC P. . . P I. . . I F 

CSI = CSl character or ESC C 

P == Parameter values in the range 060 to 077 

I = Intermediate characters in the range 040 to 057 

F = Final character in the range 100 to 176 

Inputs: 
R2 =• Address of window control block. 
R5 = Received character 



EPCHl: MOV 
BIC 



R5, -<SP) 
#-C<177:>, R5 



jMask character to 7 bits 
Add received character to end of control sequence already received 



MOV 
CALL 



R5, RO 
ACRCS 



; Get received character 

; Store into control sequence buffer 



Determine if this character terminates the control sequenci 



CMPB 

BLO 

CMPB 

BHI 

CMPB 

BEQ 

CMPB 

BHIS 

CMPB 

BEO 



R5, #60 

9* 

R5, #176 

9* 

R5, #'i; 

9* 

R5, #100 



Is this the terminating character? 

Br if not 

Is this the terminating character?" 

Br if not 

Is this part of string header? 

Br if string header 

100 to 176 always terminates 



1* 

DW*CSB<R2), #'C ; Is this an escape or control sequence? 

9* ; Br if control sequence. Only 100-176 term 



This is the final character of the control sequence 
1*: CALL CSFIN ; End of control sequence 

F i n i B b e d 

9$: MOV <SP)+, R5 
RETURN 



( 



( 



TSWIN — TSX--Plu!i Display Windo MACRO V05. 04 
bPCHl -- Accrue a terminal control sequence 
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i 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



000710 
000712 



000716 
000722 
000724 
000730 
000732 
000736 



000742 
000746 
000750 
000756 



000760 
000762 
000766 



000772 
000774 



000776 
001002 
001006 
001010 
001014 
001020 
001024 
001030 
001034 



010546 
042705 



120527 
103416 
120527 
101013 
012700 
004737 



120527 
00 1 004 
012762 

00 040 S 



010500 
004737 
004737 



01260G 
000207 



042705 
120527 
103404 
016205 
062705 
004737 
1 1 2700 
004737 
012762 



1 77600 

000101 

000132 

000133 
001136' 

000131 
000776 •■ 



001136' 
001174' 



177600 
000070 

OOOOOOG 

000037 

001066' 

000073 

001136' 

001044' 



Accrue VT52 control sequences. 

All VT52 control sequences consist of ESC followed by a single character 

except for the cursor addressing sequence ESC Y line col. 

The VT52 sequences are converted to VT52 compatible sequences. 



Inputs: 
R2 = Address of window control block 
f?5 = fiJeceived character 



EP52: MOV R5, -<SP) 

33 1 C #--C<177>, R5 



OOOOOOG 



iMask character to 7 bits 
.Tf this character is a letter.- insert "E" in front of it. 



; Letter 

.; Br if not 

; Letter 

; Br if not 

; Store "C" 



Determine if this is the cursor addressing function 

CMPB R5, #'Y i Cursor addressing function? 

BNE 2* iBr if not 

MOV #EP52L, DW*CSR(R2); Set routine to process next char 

BR 9* 



CMPB 


R5,#'A 


BLO 


2* 


CMPB 


R5, #'Z 


BHI 


2* 


MOV 


t'C.RO 


CALL 


ACRCS 



This character terminates the control sequence. 



2*: 



9*: 



MOV 


R5, RO 


CALL 


ACRCS 


CALL 


CSFIN 


F i n i G h e d 




MOV 


<SP)+,R5 


RETURN 





Get received character 

Add to string we are accruing 

This terminates the control sequence 



Accept the character which represents the line number in a VTS2 
cursor addressing sequence. 

Input E : 
R2 = Address of window control block 
R5 = Received character (whose binary value is line number + 037) 



EP52L: 



1*; 



OOOOOOG 



BIC 


#-X<177.>, R5 


CMPB 


R5, #70 


BLO 


1* 


MOV 


DW*LIN<R2), R5 


ADD 


#37, R5 


CALL 


CV52 


MOVB 


#SEMI, RO 


CALL 


ACRCS 


MOV 


#EP52C, .DW$CSR 



Mask character to 7 bits 

Octal 70 =-■> Remain on current line 

Br if new line specified 

Get current line number 

Convert to ascii character 

Convert char to digit string 

Get parameter separator character 

Store after line number value 

; Set routine to process column number char 



TSWIN - 
EPCHl 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 
104 
105 
106 



- TSX-Pius Display Wincio MACRO V05. 04 

— Accrue a terminsl control sf?quence 



00104^ 



001044 
001050 
001054 
001060 
001064 



001066 
001070 



001076 
001100 
001104 
001110 
001112 
001116 
001122 
001124 



001130 
001132 
001134 



000207 



004737 
1 1 2700 
004737 
004737 
000207 



010446 
010546 



005004 
071427 
062704 
010400 
004737 
062705 
010500 
004737 



012605 
012604 
000207 



001066 
000110 
001136 
001174 



001072 162705 000037 



000012 
000060 

001136' 
000060 

001136' 
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RETURN 



Accept the character which represents the column number in a VT52 
cursor addressing sequent e. 

Inputs: 
R2 = Address of window control block 
R5 = Received character (whose binary value is column number + 037) 



EP52C: 



CALL 


CV52 


MOVE 


#'H, RO 


CALL 


ACRCS 


CALL 


CSFIN 


RETURN 





; Convert char to digit string 
! Store terminating character 

j Th i 5 terminates the control sequence 



Convert a received character whose binary value represents a line 
number or a column number in a VT52 cursor addressing sequence 
into an ascii digit string and store into the accrued control 

sequence. 



Inputs: 
R2 ■- Address of window control block 
R5 = Received character whose binary value 



37 is the stored result 



CV52: 



MOV 
MOV 



R4, -(SP) 
R5, -<SP) 



Subtract bias of 37 
SUB #37. R5 
Convert to digit string 



CLR 


R4 


DIV 


#10. , R4 


ADD 


#'0, R4 


MOV 


R4, RO 


CALL 


ACRCS 


ADD 


#'0, R5 


MOV 


R5, RO 


CALL 


ACRCS 


F i n i h h e d 




MOV 


<SP)+, R5 


MOV 


(SP)+, R4 


RETURN 





; Remove bias from character value 



Clear high-order for divide 

Split into two decimal digits 

Form high-order ascii digit 

Get the character 

Store into control string 

Form low-order ascii digit 

Qet the character 

Store into control strinq 



{ 



/ 



TSWIN — 
ACRCS - 

1 

/-J 

O 

4 

5 

h 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

2S 

26 

27 

28 



■ TSX"Plus Disp.iay Windo MACRO 
- Store a chararter into contr 
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ol 5eq buffer 



001136 
001140 



001144 
001150 
001154 



001156 
001160 
001164 



001170 
00 1172 



010346 
042700 



016203 
020327 
1030013 



060203 
1 1 0063 
005262 



012603 
000207 



1 77600 



0000000 
1777770 



OOOOOOG 
0000000 



. SBTTL ACRCS 



Btore a character into control seq buffer 



This routine is called to add another character to the end of the 
accrued control seauence in the DW$CSB buffer svaa. 



I n p u t B : 
RO == Character to be added to end of string 
R2 •= Address of window descriptor block 



ACRCS: MOV 

BIC 



R3, -<SP) 
#-C<177:>, RO 



iMas(( character to 7 bits 
Make? sure lue don't ovtrfJouj th£> control sequence buffer 



MOV DW*CSP<R2), R3 
CMP R3, #TCSBSZ ■•.! 
BHIS 9* 

Store character into buffer- 



ADD 

MOVE 

INC 

F i n i G h e d 

MOV 
RETURN 



R2, R3 

RO, Dy«CSB<R3) 

DW$CSP<R2) 



<SP)+, R3 



i Get # chars in buffer now 

j is buffer full already?" 

.: Br if yes — Ignore this character 



.; Point to next char pes in buffer 

i Store char into buffer 

; Increment character count 



TSWIIM — 
CSFIN - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-Flus Disp 
- P T- o c f? s i:i r e c e 
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:iv£?d control Bequeiice 



001174 
001176 
001200 



001202 
001204 
001210 



001214 
001220 
001222 
001226 



010346 
010446 
010546 



010203 
066203 
105063 



012705 
010203 
062703 
1 2 1 327 

001014 



0000000 
OOOOOOG 



000014' 

0000000 
000133 



001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



234 
236 
240 
244 
246 
252 
254 
256 
260 
262 



001264 
001266 



i 1 2300 
001410 
120027 
103403 
120027 
1 1 770 
11002;) 
000766 
105025 
000402 



1 1 2325 
00 1 376 



000060 
000076 



001270 012704 

001274 126527 

001302 10300n 

001304 012704 



001310 012703 
001314 122324 



001432' 

177776 000140 

001560' 



000014' 



. BBTTL CBFIN — " Hfocess received control sequence 

We have finished accruinc! a control sequence? process it. 

1 n p u t B : 
R2 = Address of window control block. 



CSFIN: MOV 
MOV 
MOV 



R3. -(SP) 
R4i -(SP) 
R5, -<BP) 



Store null at end of control sequence string 



MOV R2, R3 

ADD DW*CSP(R2), R3 

CLRB DW«CSB<R3) 



; Get address of uiindou) control block 
; Point to next char pos in buffer 
i Store null at end of string 



MOV 


#CSBUF. HD 


MOV 


R2.. R3 


ADD 


#DW*CSB. R3 


CMPB 


(R3),#'C 


BNE 


3* 



1*: 



2*: 
41!: 



Move control sequence to work buffer and remove any parameter characters 

; Point to work buffer 

; Get address of buffer with full string 

j Do we need to e.xclude parameter values? 

; Br if not 

This is a control sequence. Ignore parameter value characters in the 

range 060 to 076. 

Get next char from input string 

Br if hit end of string 

Is this a parameter character? 

Br if not 

Parameter character? 

Br if parameter character 

Store char into work buffer 

Keep moving 

Store null at end of string 

This is an escape sequence. We don't have to remove parameter values. 



MOVB 


(R3)+, RO 


BE£Q 


4* 


CMPB 


RO, #060 


BLO 


2* 


CMPB 


RO, #076 


BLOS 


1* 


MOVB 


RO, <R5) + 


BR 


1* 


CLRB 


<R5) + 


BR 


5* 



3$: MOVB (R3)+, <R5)+ 
BNE 3* 



; Move char to work buffer 
; Loop till null moved 



The control sequence is now in the work buffer (CSBUF) with any parameter 

value strings removed. 

Begin loop to try to identify the control sequence. 

5$: MOV #CSTBLL, R4 ; Point to 1st set of control sequences 

.: Is final char of sequence less than 140? 

i Br if not 

J Point to control seq table for final < 140 

Compare accrued control sequence with sequence stored in table 



MOV 


#CSTBLL, R4 


CMPB 


-2<R5.),#140 


BHIS 


10$ 


MOV 


#CSTBLU, R4 



10*: MOV #CSBUF, R3 
12*: CMPB <R3)+, (R4)i' 



i Point to accrued control sequence 
; Compare the strings 



i 
I 
I 
i 
i 
i 
i 
i 

€ 

i 
i 

i 

i 
i 
i 
i 

i 



{ 



{ 



( 



TSWIN — 


- TSX-Pl 


u ti D i s p 3 


ay Windo MACRO V 


CSFIN - 


— Proce 


Si." T- e c e i 


ved contTol sequ 


58 


001316 


00 1 004 




59 


001320 


1G576A 


177777 


60 


001324 


00 1373 




61 


001326 


000412 




62 








63 








64 








65 


001330 


005304 




66 


001332 


105724 




67 


001334 


001376 




68 


001336 


062704 


000003 


69 


001342 


042704 


000001 


70 


001346 


005714 




71 


001350 


001357 




72 


001352 


000417 




73 








74 








75 








76 








77 








78 


001354 


010205 




79 


001356 


062705 


00000 IG 


SO 


001362 


005204 




81 


001364 


042704 


000001 


82 


001370 


011404 




83 


001372 


032762 


0000000 0000000 


84 


001400 


001403 




85 


001402 


020427 


004666 ' 


86 


001406 


001001 




87 


001410 


00471''! 




88 








89 








90 








91 


001412 


005062 


0000000 


92 


001416 


005062 


0000000 


93 


001422 


012605 




94 


001424 


012604 




95 


001426 


012603 




96 


001430 


000207 
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i 



BNE 


13* 


TSTB 


-1(R4) 


BNE 


12* 


BR 


14* 



Strings do not match 



13*: 
15*: 



DEC 


R4 


TSTB 


<R4) + 


BiME 


15* 


ADD 


#3, R4 


BIG 


#1, R4 


TST 


(R4) 


BNE 


10* 


BR 


20* 



j Br if mi smatch 

.; Was that the end of both strings? 

; Br if not 

; We have a match 

Move on to next table entry 



Point to last char compared in table 

Search for null at end of asciz string 

Loop till null found 

Bound up and skip over following word 

Oet to word boundary 

Reached end of tableT' 

L. o o p if not 

Control sequence is not in our table 



We found the control sequence in our table. 

Call processing routine. 

Set R5 to point to start of any possible parameter string in control seq. 



14*: 



16*: 



MOV 
ADD 
INC 
BIC 
MOV 
BIT 
BEO 
CMP 
BNE 
CALL 



R2, R5 

#DW*CSB+i> R5 

R4 

#1,R4 

<R4),R4 



i Point to window control block 

i Point to start of possible parameter string 

; Bound up to next word 

; Get to word boundary 

/Get address of routine to call 



#AW*PRT. DW*AW<R2)i Are we directing output to printer port? 



16* 

R4, #TCPRT 

20* 

(R4) 



Br if not 

Is this printer control operation? 

Br if not — Ignore till printer turned off 

Call processing routine 



Finished with control sequence 



?0*: 



CLR 


DW*CSP(R2) 


CLR 


DW*CSR(R2) 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


RETURN 





i No accrued chars in control sequence 
; Not accruing a control sequence now 



TSWIh4 — TSX-PiuB Dispiau Windo MACRO V05. 04 
CSPIN — Process received control liequente 
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3 
4 




5 




6 




7 




8 




9 




10 




11 




12 




13 




14 


001432 


15 


001432 


16 


001440 


17 


001446 


18 


001454 


19 


001462 


20 


001470 


21 


001476 


22 


001504 


23 


001512 


24 


001520 


25 


001526 


26 


001532 


27 


001536 


28 


001542 


29 


001546 


30 


001552 


31 


001556 000000 


32 




33 




34 




35 




36 


001560 


37 


001560 


38 


001566 


39 


001574 


40 


001602 


41 


001610 


42 


001616 


43 


001624 


44 


001632 


45 


001640 


46 


001646 


47 


001654 


48 


001662 


49 


001670 


50 


001674 


51 


001700 


52 


001704 


53 


001710 


54 


001714 


55 


001722 


56 


001730 


57 


001736 



Generate table of terminal control sequences and associated processing 



routines 



. MACRO 
. ASCIZ 
. EVEN 
. WORD 
. ENDM 



ESCSEQ STRING, RTN 
/STRING/ 

RTN 
ESCSEQ 



Table 
ranqe 



for control 
140 to 177 



sequences ujhose final character is in the 



CSTBLL 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
. WORD 



:Ef> 
:z"p 

:ci 



TCCADR 
, TCI 00 
>, TCSAA 
>, TCRAA 



<C?h>, TCSDA 
<i:?i>, TCRDA 
<i:i>, TCPRT 
<Cm>, TCSCA 
<Cr>, TCSSR 
<C !p>, TCREGI 
<c>, TCREST 
<'^>. TCLSIR 
TCLS2 
TCLS3 



vn.. 
<o:: 

<}■:: 



TCLS2R 
TCLS3R 







C u r s 

Selt? 

Set 

Rese 

Set 

ResB 

Pr in 

Set 

Set 

Soft 

Hard 

Loc k 

Loc k 

Loc k 

Loc k 

Lock 

End 



or add 

ct VTl 

ANSI t 

t ANSI 

DEC te 

t DEC 

ter CO 

charac 

scrol 1 

reset 

reset 

shift 

shift 

shift 

shift 

shift 

of tab 



r e E s 1 n q 
00/VT200 mode 
erminal attribute 

terminal attribute 
rminal attribute 
terminal attribute 
ntrol code 
ter attribute 
ing region 



Gl 
G2 
G3 
G2 
G3 
le 



as 
as 
as 
as 
as 



GR 
GL 
GL 
GR 

GR 



character 
character 
character 
character 
character 



set 
set 
set 
set 
set 



Table 

range 

CSTBLU: 



for control sequences whose final character is in the 
60 to 137 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 



<CA>, TCUP 
<CB>, TCDOWW 
<i:C>, TCRIT 
<CD>, TCLHIT 



;cH>, 
:ci>, 



TCGODS 
TCGOAS 
TCCADR 
TC IX UP 



<[:j>, tcpers 
<:i:k>, tcler'j 
<cl>, tcinsl 



<cm: 

<D>, 

<E>, 

<M>, 

<N>, 

<0>, 

<<A>, TCGOUK 

<(D>> TCGOAG 

<<0>, TCGOGR 

<)A>. TCGIAS 



>, tcdell 

TCLF 
TCESCE 
TC IX UP 

TCSS3 



Move 
Move 
Move 
Move 
Sele 
Sele 
Curs 
Reve 
Eras 
Eras 
Inse 
Dele 
Inde 
Move 
Reve 
Sing 
Sing 
Desi 
Desi 
Desi 
Desi 



cur 

cur 

cur 

cur 

ct g 

c t n 

or a 

rse 

e mi 

e uii 

rt 1 

te 1 

X (M 

to 
rse 
le s 
le s 
gnat 
gnat 
gnat 
gnat 



sor u 
sor d 
sor r 
sor 1 
raph i 
ormal 
ddres 
index 
thin 
t h i n 
i n e s 
ines 
ove c 
1st c 
index 
hift 
hift 
e GO 
e GO 
e GO 
e Gl 



P 

own 

ight 

eft 

c char set for VT52 

char set for VT52 
sing 

<VT52) 
a page 
a line 



ursor down one line) 
olumn of next line 



<move up 
next char 
next char 
as UK 
as ascii 
as graphics 
as UK 



1 line) 
to G2 
to G3 



{ 



{ 



TSWIN — 


- TSX-Pi 


u ;; D 1 -i p ■' u L( 


Wind 


CSFIN - 


— Proce 


5 s r e c ff :i v c 


d c on 


58 


001744 






59 


001752 






60 


QOf^hO 






61 


001766 






62 


001774 






63 


002002 






64 


002010 






65 


002016 






66 


002024 






67 


002032 






68 


002040 






69 


002044 






70 


002050 






7.1 


002054 


050 


074 


72 








73 


002060 


003354 •' 




74 


002062 


05.1 


074 


75 








76 


002066 


003412' 




77 


002070 


05P 


074 


78 








79 


002074 


003450' 




SO 


002076 


053 


074 


81 








82 


002102 


003476 •' 




S3 


002104 


074 


000 


84 


002106 


004466 •■ 




85 


002110 


076 


000 


86 


002112 


00423;?' 




S7 


002114 


000000 
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000 



000 



000 



000 



ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEO 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
ESCSEQ 
. ASCIZ 
. EVEN 
. WORD 
. ASCIZ 
. EVEN 
. WORD 
. ASCIZ 
. EVEN 
. WORD 
. ASC I Z 
. EVEN 
. WORD 
, ASC I Z 
. WORD 
. ASCIZ 
. WORD 
. WORD 



<)B> 
< ) 0> 

<-»-e> 

<«0> 

<+D> 

<-+0> 

<#3> 

<#4> 

<#5> 

<#6> 

<7>, 

<S>. 



TCQIAS 
TCGIGR 
TCG2AS 
TC<32GR 

, TCG3A3 

, TCG3GR 

. TCN3 

. TCN4 

. TCN5 

, TCN6 

TCCPSV 

TCCPR3 

TCAKM 

74 > 



TCGODS 
/)/<74> 

TCGIDS 
/•R-/<74> 

TCG2DS 
/+/<:74> 

TCG3DS 

<74> 

TCI 00 

<76> 

TCNKM 





Designate Gl as ascii 

Designate Gl as graphics 

Designate G2 as ascii 

Designate G2 as graphics 

Designate G3 as ascii 

Designate G3 as graphics 

Line is top half of double-high line 

Line is bottom half of double high 

Line is single width 

Line is double width 

Save cursor position 

Restore cursor position 

Select application keypad mode 

•'(<•' 

i Designate GO as DEC supplemental graphics 

; Designate Gl as DEC supplemental graphics 

i Designate G2 as DEC supplemental graphics 

,: Designate G3 as DEC supplemental graphics 

i Select ANSI mode with "<" character 

j Select ANSI mode 

; Generate entry with ">" character 

; Select numeric keypad mode 

; End of tab le 



TSWIN — 
CSF^ARM - 



3 
4 
5 
6 

'"7 
/ 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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Extract parameter value from control string 



002116 
002120 



002122 
002124 
002126 
002132 
002134 
002140 
002142 
002146 



002150 
002152 
002154 
002156 
002162 
002164 
002170 
002172 
002176 
002202 
002204 



002212 
002214 



002220 
002222 



V.' .», \^' X ^\ i 

00 5001 



1 1 2500 
001430 
120027 
001432 

120027 
101370 
120027 
10376!) 



0004 i;;i 
112500 
001420 
120027 
101016 
120027 
103413 
070127 
162700 
060001 
000762 



005305 
005000 
000261 
000403 



00530b 
010100 

000241 



000073 
000071 
000060 



000071 

000060 

000012 
000060 



. BBTTL CSFARM — Extract parameter value from control string 

CSHAf?M obtains the next parameter value from the control string. 
If there is no parameter value? is returned as the value. 
Non-parameter characters are skipped over. 

I n p u t B : 
R5 - Pointer into control string where parameter may start. 

Outputs: 
C-flag set ==> No more parameter values. 
RO = Accrued parameter value. 
R5 = Points past end of- parameter value. 



CSFARM: MOV 
CLR 



R 1 , - < 5P ) 
Rl 



; Accrue the value in Rl 

Scan up to the start of a parameter value 



1$: 



MOVE 


<R5)+,R0 


BEQ 


5* 


CMPB 


RO, #SEMI 


BEG 


7* 


CMPB 


RO, #'9 


BHI 


1* 


CMPB 


RO, #'0 


BLO 


1* 



Get next char from control seq 

Br if hit end of the string 

Semicolon is value separator 

Br if no value specified for this pararo 

Is this a parameter character? 

Br if not 



■,Bt if not digit 
We found the start of a parameter value. Accrue it. 



3^\ 



4*: 



BR 


4* 


MOVE 


<R5)+, RO 


BEQ 


2* 


CMPB 


RO, #'9 


BHI 


7* 


CMPB 


RO, #'() 


Bl 


7* 


MUL 


#10. ,R1 


SUB 


#'0, RO 


ADD 


RO, Rl 


BR 


3* 



Enter loop in middle 

Get next char of parameter 

Br if hit null at end of string 

Is this char part of parameter? 

Br if not 

.: Br if not 

j Multiply previous value by 10. 

J Convert ascii digit to binary value 

; Add into previous value 

■> Keep accruing 



€ 
€ 



; There btb no more parameter values 



5*: 



DEC 
CLR 
SEC 



R5 
RO 



; Point to string terminator 

J Return as "value" 

i Signal that there are no more parameters 



BR 9* 
Finished getting the parameter value 



>*: 

7*: 



DEC 
MOV 
CLC 

Fin :i t. h e d 



R5 
Rl, RO 



i Point to parameter terminator 

; Get accrued value 

; Signal success on return 



i 
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CSPARM — Extract paramtrter value from control string 

58 002224 1 2^0 .1 9$ ; MOV ( SP ) +, K 1 

59 002226 000207 RETURN 
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TCBS — Process bac!?!-pace character 

1 . SBTTL TCBS - — ProcfJ&s backspace character 

i Process a backspace character. 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 



002230 



002230 026227 0000000 000001 

002236 00140;; 

002240 005362 0000000 



002244 000207 



; I n p V t s : 

} PJ2 -- Pointer to windouj control block 

TCWS: 

i Set column number back one unless we are already at column one 



CMP 

DEC 

F i n i shed 

RETURN 



DWfC0L(R2)^ #1 ;Are we already at column 1? 

9* .; Br if yes 

DW$C0L(R2) ; Move column number back one 



TSWIN — 


- TSX--PI 


u 5 E) i 5 p 3 


a y W i n d 


TCHT 

1 
2 
3 


-■-- Proce 


s s ^1 o T- :i 7. 


(1 n t a 1 t a 








4 








5 








6 








7 








B 


002246 






9 








10 








11 








12 


002246 


016200 


0000000 


13 


002252 


005300 




14 


002254 


062700 


000010 


15 


002260 


042700 


000007 


16 
1 7 
18 


002264 


005200 










19 








20 


002366 


020062 


0000000 


21 


002272 


1 1 402 




22 


002274 


016200 


0000000 


23 


002300 


010062 


0000000 


24 








25 








26 








27 


002304 


000207 
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. SDTTL TCHT — i'Tort&s horizontal tab character 

Prncpss horizontal tab rharacter. 

Inputs: 
R2 - F^ointer to window control block 

TCHT: 

Oet current column number and advance to next multiple of 8 

i Get current column number 
.iMake let column be # 
; Advance to next tab stop 
;Bound to next multiple of 8 
.iMake 1 s t col umn b e # 1 

Make sure we don't qo beyond end of line 



MOV 


DW*C0L(R2), 


RO 


DEC 


RO 




ADD 


#8. , RO 




BIG 


#7, RO 




INC 


RO 





CMP 
BIDS 
MOV 
1«: MOV 

F i ) I i Ei h B d 

RETURN 



RO, DW*CPL(R2) 
1* 

DW«CPL<R2)> RO 
RO, DW$C0L(R2) 



; Compare with # columns per line 

i Br if within line 

; Force to end of line 

; Set new column number 



€ 

i 
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TCCR — Process cavrii'QS return 

1 . SBTTL TCCR — PrDCf?&5 carriage return 

2 :. 

3 .; F^roces-B carriage return) move to ist char of current line. 

4 > 

5 i 1 n p u t E. : 

6 > Rri = Pointer to window control block. 

7 ; 

S 002306 012762 000001 OOOOOOG TCCR: MOV #1 , DW$C0L<R2> .= Say current column = 1 

9 ; 

iO ; Finished 

11 i 

12 002314 000207 RETURN 



TSWIIM — 
TCUP 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 



TSX'-Pi 
Move 
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cursor up specified number of lines 



SBTTL TCUP 



Mdvo cursor up specified number of lines 



002316 



002316 
002322 
002324 
002326 



002330 
002332 
002336 
002340 
002344 
002352 
002354 
002360 
002362 
002366 



00237; 



004737 002116' 

005700 

001001 

005200 



000207 



Movp thf? cursor up the pacie the specified number of lines. 
Do not scroll if me reach the bottom of the page. 

Inputs: 
R2 = Pointer to windouj control block 
R5 = Pointer to parameter value in control sequence 

TCUP: 

Get count of number of lines to move up 

.i Accrue parameter value 
j Was specified value O? 
; Br if not 
i Treat O like 1 



CALL 


CSPARH 


TST 


RO 


13 WE 


1* 


INC 


RO 



Move up specified number of lines 



005400 1$: 

066200 0000000 

003002 

012700 000001 

026262 OOOOOOG OOOOOOG 2*: 

:(0340;> 

020062 OOOOOOG 

103002 

016200 OOOOOOG 

004737 006702' 3$: 



NEG 

ADD 

BGT 

MOV 

CMP 

BLO 

CMP 

BHIS 

MOV 

CALL 

F i n i shed 

RETURN 



RO 

DW«LIW(R2),R0 
2* 
#1, RO 



J Get negative number of lines to move 
i Compute new line 

J Br if didn't go past top of page 
J Constrain to top of page 



DW$LIN<R2). DW*SRT<R2); Were we already above top of scroll rgn? 

3* 5 Br if yes — Don't constrain 

RO. DW*SRT<R2) ; Would this put us above top of scroll regn? 

3* ; Bt if not 

DW*SRT(R2) J RO ; Constrain to top of scroll region 

SETLIN .; Set new line for cursor 



i 

€ 
I 
< 

i 
i 

i 
i 
€ 
€ 

i 
i 

€ 
C 
I 

i 
1 
C 
4 
I 

i 
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TCDOWN -- Move cursor down specified number of lines 



1 

3 
4 



7 

8 

9 

10 

ii 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
25 
29 
30 
31 
32 
33 
34 
35 
36 
37 



SBTTL TCDDWN 



Move cursor down specified number of lines 



002374 



002374 
002400 
002402 

002^104 



002406 
002412 
002416 

002420 



002424 
002432 
002434 
002440 
002442 
002446 



Movp the cursor down the page the specified number of lines. 
Do not scroll if we reach the bottom of the page. 

I n p u t B : 
R2 " Pointer to window control falocfe 
R5 =•• Pointer to parameter value in control sequence 

TCDOWN: 

Get count of number of lines to move down 



■$: 



004737 002116' 

005700 

00 1 00 1 

00 5200 



066200 0000000 

020062 0000000 

101402 

016200 OOOOOOG 



026262 OOOOOOG OOOOOOG 3*: 

ioioo;> 

020062 OOOOOOG 

101402 

1 6200 OOOOOOG 

004737 006702' 2*: 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


IMC 


RO 



i Accrue parameter value 
; Was specified value 0? 
J Br if not 
i Treat like 1 



Move down specified number of lines 



ADD 
CMP 
BLDS 
MOV 



DW*LIN<R2>, RO 
RO. DW1iLPP<R2) 
3* 
DW$LPP<R2), RO 



/Compute new line 

j Would this go past end of page? 

i Br if not 

J Constrain to bottom of page 



If we are currently with the scroll region* don't move out 

DW*LIN<R2), DW*SRB(R2); Were we already past end of scroll? 

Br if past end — Don't constrain 
Did we go past end of scroll region? 
Br if not 

Stop at bottom of scroll region 
Set new line for cursor 



002452 000207 



CMP 


DW*LIN<R2),DW 


BHI 


2* 


CMP 


RO, DW*SRB<R2) 


BLDS 


2* 


MOV 


DW*SRB<R2>.R0 


CALL 


SETLIN 


F i n i B ti e d 




RE1URN 





TSWIN — TSX-Pius DispSoy Windo MACRO 
TCLF - ProcsBv: Lmv l-eed character 



3 








4 








5 








7 








8 


002454 






9 








10 








11 








12 








13 


002454 


016200 


OOOOOOG 


14 


002460 


020062 


0000000 


15 


002464 


001411 




16 


002466 


005200 




17 


002470 


020062 


0000000 


18 


002474 


1 1 402 




19 


002476 


016200 


OOOOOOG 


20 


002502 


004737 


006702 •' 


21 


002506 


000402 




22 








23 








24 








25 








26 

'~i'7 


002510 


004737 


005146' 


d / 

28 








29 








30 


002514 


000207 
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. SEfTTL TCLF — l'T-c<(.es-s Lirif? Feed character 

Process a line feed character. Move doiun to the next line. 

1 n p u t B : 
R2 = Pointer to window control block 



CLF 



If we are not at the bottom line of a scrolling region* simply 
advance the line number. 



; Get the current line number 

i Are we at bottom of scrolling region? 

; Br if yes 

j Increment the line number 

; Are we past the end of the page? 

.; Br if not 

.; Constrain to bottom of page 

.: Set this as current line 



We arci at the bottom lint? of a scroll region. 
We must scroll up one line. 



MOV 


DW*LIN<R2),R0 


Ci^P 


RO, DW*SRB(R2) 


BEQ 


1* 


INC 


RO 


CMP 


RO, DW*LPP<R2) 


BLOS 


2* 


MOV 


DW$LPP<R2), RO 


CALL 


SETLIN 


BR 


9$ 



1$: 



9*: 



CALL 
F irri h h e d 

RETURN 



SCRLUP 



; Scroll up one line 
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TSWIN — TSX-Pius 

TCESCE - - Move to let (olumn of next line 



1 



4 
5 
6 
7 

8 



9 002516 004737 002306' 

10 002522 004737 002454"' 

11 002526 000207 



. SBTTL TCESCE 



Move to l5t column of next line 



Move to first column of next line. Equivalent to carriage-return* 
line -feed. 



I n p u t !i : 
R2 = Pointer to inindoiu control block. 



TCESCE: CALL TCCR 
CALL TCLF 
RETURN 



; Simulate carriage return 
iSimulate line feed 



TSWIN • 
TC I XUP 
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■ Index u f J o n (? 1 i n e 



J, 

■J 



7 

a 

9 
.10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 



24 



002530 



002530 016200 0000000 

002534 020062 OOOOOOG 

002540 001406 

002542 005300 

002544 003001 

002546 005200 

002550 004737 006702' 

002554 00040;.' 



26 002556 004737 005266' 

27 

28 

30 002562 000207 



. SBTTL TCI XUP ■- Index up one line 

Hove the cursor up one line. Scroll the screen if we are on the top line. 

Inputs: 
RL' -" Pointer to window control block 
R5 = Pointer to parameter value start in control sequence 



TCI XUP: 



If we avB not at the top line of a scrolling region/ 
simply decriment the line number. 



2$: 



MOV 


DW*LIN<R2), RO 


CMP 


RO, DW*SRT(R2) 


BEO 


1* 


DEC 


RO 


EOT 


2* 


INC 


RO 


CALL 


SETLIN 


BR 


9* 



; Get current line number 

iAre we at top of scrolling region? 

i Br if yes 

.; Decrement line number 

>Br if didn't go past line 1 

; Constrain to line 1 

; Set this as current line 



We are at the top line of a scroll region. 
We must scroll down one line. 



If': CALL SCRLDN 

F i n i & h e d 
?$: RETURN 



i Scroll down one line 



TSWIN - 
TCRIT - 

1 
2 
3 
4 

6 

7 

8 

9 

10 

.11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
no 

23 
24 

26 
27 
28 
29 
30 
31 
32 



— T3 K -r 1 u ii D J. £ p J ij y W i n d o MACRO 
-- Move cursor right specified 



002564 



002564 004737 002116 



002570 
002572 
002574 



005700 
001001 
005200 



002576 
002602 
00260i'ib 
002610 
002614 



066200 
020062 
101402 
1 6200 
010062 



0000000 
OOOOOOG 

0000000 
OOOOOOG 
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number of chars 

. SBTTL TCRIT — Move cursor right specified number of chars 

Move cursor right a specified number of characters. 

Input 5 : 
F?2 " Pointer to window control block 
R5 -- Pointer to parameter value in control sequence 

fCRIT: 

Oet parameter value of number of chars to move 

CALL CSPARM ; Get parameter value 

Translate parameter value of to 1 

.; Parameter value zero? 

; Br i f not 

; Translate to 1 

Move the cursor the specified number of columns but don't go past 
ri(iht margin. 



TST 


RO 


BNE 


1* 


INC 


RO 



002620 000207 



1*: Aim 
CMP 
.Bi...OS 
MOV 

'^•«: MOV 

F" i JT i s h y d 

RETURN 



DW*C0L<R2). RO 
RO, DW*CPL<R2> 
2S 

DW$CPL(R2), RO 
RO, DW$C0L<R2) 



; Get updated cursor column 
;Did we go past right column? 
; Br if not 

j Constrain to right column 
j Set new column number 



rswiN "■■ 




U i: U .1 =;■ p } 1 


-• y kl i n d o 


rCLEFT ■ 

■t 


..... |-'jQVf? 


c 1.J vsor 1 ( 


;• f t spec 


1 

n 

3 








4 








5 








6 








7 








S 








9 


002622 






10 








n 








12 








13 


002622 


004737 


002116' 


14 








15 








16 








17 


002626 


005700 




IS 


002630 


001001 




19 


002632 


005200 




20 








21 








22 








23 








24 


002634 


005400 




25 


002636 


066200 


OOOOOOG 


26 


002642 


003002 




27 


002644 


012700 


000001 


28 


002650 


010062 


OOOOOOG 


29 








30 








31 








32 


002654 


000207 
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ft specified number of chars 

. SBTTL TCLEF1 -•- Move cursor left specified number of chars 

Move cursor left a specified number of characters. 

Inpu t B : 
Rk' " Pointer to ujindotu control block 
R5 ~ Pointer to parameter value in control sequence 

ICLEF-) : 

Get parameter value of number of chars to move 

CALL CSPARM ; Oet parameter value 

Translate parameter value of to 1 

(Parameter value zero? 

; Br if not 

.; Translate to 1 

Move the cursor the specified number of columns but don't go past 
left mrrrgin. 



i 
f 



■fST 


RO 


BME 


1* 


IWC 


RO 



1^: 



*: 



NEO 


RO 


ADD 


DW$CDL<R2>,R0 


BOT 


2* 


Mt3V 


#1, RO 


MOV 


RO, DW*C0L<R2) 


F i n i shed 




RE7URN 





iOet negative movement count 
; Oet updated cursor column 
J ]3r if didn't go past column 1 
; Constrain to column 1 
; Set new column number 
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3 








4 








5 








6 








7 








8 








9 


002656 






.10 








11 








U» 








13 


002656 


004737 


002116' 


14 


002662 


005700 




15 


002664 


001001 




16 


002666 


005200 




17 


002670 


032762 


0000000 


IS 


002676 


001410 




19 


002700 


066200 


0000000 


20 


002704 


005300 




21 


002706 


020062 


0000000 


22 


002712 


101402 




23 


002714 


016200 


OOOOOOG 


24 


002720 


020062 


0000000 


25 


002724 


1 1 402 




26 


002726 


016200 


OOOOOOG 


27 


002732 


004737 


006702 ' 


28 








29 








30 








31 


002736 


004737 


002116' 


32 


002742 


005700 




33 


002744 


001001 




34 


002746 


005200 




35 


002750 


020062 


0000000 


36 


002754 


101402 




37 


002756 


016200 


0000000 


38 


002762 


010062 


OOOOOOG 


39 








40 








41 








42 


002766 


000207 





. SBTTL TCCADR -- Do direct cursor addressing 

Move cursor to a specified line and column. 

I n p u t s : 
K2 - Pointer to window control block. 
R5 -- Pointer to parameter string within control sequence 

rCCADR: 

Get line number parameter- 

i Accrue line number parameter 
i Translate to 1 



OOOOOOG 1$: 



D*: 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


I m: 


RO 


BIT 


#AW$ORS> DWifcAW 


BEQ 


5* 


ADD 


DW*SRT(R2)> RO 


DEC 


RO 


CflP 


RO, DW*SRB<R2) 


BLOS 


5* 


MOV 


DW$SRB(R2),R0 


CMP 


RO, DW*LPP<R2) 


BLOS 


2* 


MOV 


DW*LPP(R2),R0 


CALL 


SETLIN 



; Force to 1 
#AW$ORS> DWifcAW<R2) ; Is origin relative to scrolling region? 

Br if not 

Bias line number by top of scrolling region 
Top line number is 1 

Don't allow to go past end of scroll region 
Br if ok 

Constrain to bottom of scroll region 
Don't go past bottom of page 
Br if ok 

Constrain to bottom of page 
Set new line as current line 



Get column number parameter 



3*: 



4«: 



CALL 


CSPARM 


TST 


RO 


BNE 


3* 


.INC 


RO 


CMP 


RO, DW*CPL(R2) 


BLOS 


4* 


MOV 


DW*CPL<R2>,R0 


MOV 


RO, DW*C0L<R2) 


F i n i s h e d 




RETURN 





Accrue column number parameter 

Don't allow column 

Br if non zero 

Translate to 1 

Don't allow to go past right margin 

Br if ok 

Constrain to right margin 

Set new column number 



f 
f 

i 
I 
I 
I 
< 

< 
c 

€ 
C 

i 
i 
i 
« 

i 

i 
i 
i 
i 
i 



TSWIN - 
TCCPSV 
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Save current cursor position 



1 

3 
4 
'3 
6 

"7 
/ 

8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
10 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 



002770 



002770 116262 OOOOOOG OOOOOOG 
002776 116262 OOOOOOG OOOOOOG 



003004 U6262 OOOOOOG OOOOOOG 



003012 000207 



003014 



003014 116262 OOOOOOG OOOOOOG 



003022 1 1 6200 OOOOOOG 
003026 004737 006702 ' 



003032 116262 OOOOOOG OOOOOOG 



003040 000207 



. SDTTL. TCCPSV — Savt current cursor position 

Save the current cursor position and character attributes. 

I n p u t s : 
R2 ~ Pointer to window control block. 

TCCPSV: 

Save cursor position 

MOVB DW*LIN(R2). DW*SLN(R2)i Save current line number 
MOVB DW*C0L(R2)> DW*SCL<R2); Save current column number 

Save character attributt-'S 

MOVB DW$CCA(R2). DW*SCA<R2); Save character attribute flags 
Finished 

RETURN 

. SBTTL TCCPRS — Restore cursor position 

Restore cursor position and character attributes from saved data. 

Inputs: 
R2 = Pointer to window control block. 

fCCPRS: 

Restore the column number 

MOVB DW*SCL(R2), DW*C0L<R2)j Restore column number 

Restore the line number 

MOVB DW*SLN(R2), RO ;Get saved line number 
CALL SETLIN i Set as current line number 

Restore character attributes 

MOVB DW*SCA<R2), DW*CCA<R2); Restore character attribute flags 

F i n i 5 h e d 

RETURN 



TSWIN — 
TCIMSL - 



T S X ~P i u s D i s p 1 a y 
- Insert 1 ine? 
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. BBTTL TCINSL — "In&ert lines 



3 








4 








5 








6 
7 








8 








9 








10 








11 


003042 


01014v''> 




12 


003044 


010346 




13 


003046 


010446 




14 


003050 


010546 




15 








16 








17 








18 


003052 


016203 


OOOOOOG 


19 


003056 


020362 


OOOOOOG 


20 


003062 


103444 




21 


003064 


020362 


0000000 


22 


003070 


101041 




23 








24 








25 








26 


003072 


004737 


002116' 


27 


003076 


005700 




28 


003100 


003002 




29 


003102 


012700 


000001 


30 


003106 


016201 


OOOOOOG 


31 


003112 


160301 




32 


003114 


005201 




33 


003116 


020100 




34 


003120 


1 0141 3 




35 








36 








37 








38 


003122 


010103 




39 


003124 


160003 




40 


003126 


010001 




41 


003130 


016205 


OOOOOOG 


42 


003134 


010504 




43 


003136 


160104 




44 


003140 


004737 


006346 ' 


45 


003144 


005305 




46 


003146 


077306 




47 








48 








49 








50 


003150 


016203 


OOOOOOG 


51 


003154 


010300 




52 


003156 


004737 


006232 ' 


53 


003162 


005203 




54 


003164 


077105 




55 








56 








57 









Insert a specified number of lines in front of the line in which 
the cursor is currently resting. Ihe cursor is left positioned 
at column 1 of the first inserted line. 



I n p u t B : 
R2 == Pointer to windouj control block 
R5 ~ Pointer to command string argument 



TCINSL: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP > 
R3, -<SP) 
R4, -(SP) 

R5.. -<r>p) 



1$: 



Ignore this command if we are not within the scroll region 

MOV DW*LIN(R2), R3 i Get current line number 

CMP R3, DW*SRT<R2) i Are we above top to scroll region? 

BLO 9* .: Br if yes 

CMP R3, DW*SRB<R2) .= Are we below bottom of scroll region? 

BHI 9« J Br if yes 

Determine how many lines will be inserted 

Get command parameter 

Was specified? 

Br if not 

Set it to 1 

Get bottom line # of scroll region 

Get # lines from current to end of region 

This is max # inserted lines 

Can we scroll as many as requested? 

Br if all lines are scrolled off 



CALL 


CSPARM 


TST 


RO 


BGT 


1* 


MOV 


#1, RO 


MOV 


DW*SRB<R2),R1 


SUB 


R3, Rl 


IMC 


Rl 


CMP 


R 1 , RO 


BLOS 


2* 



Scroll down lines to makr room for inserted lines 



:n: 



MOV 


Rl, R3 


SUB 


RO, R3 


MOV 


RO, Rl 


MOV 


DW*SRB(R2), R5 


MOV 


R5, R4 


SUB 


R 1 , R4 


CALL 


CPYLIW 


DEC 


R5 


SOB 


R3, 3* 



Blank fill inserted lint'S 



2*: 
4*: 



MOV 


DW*LIN<R2), 


R3 


MOV 


R3, RO 




CALL 


CLRLIN 




INC 


R3 




SOB 


Rl, 4* 





i Get number of lines to scroll 

; Get # lines being inserted 

i Get # of line at bottom of scroll reg 

j Get # of line to copy to bottom 
; Copy a 1 ine down 

J Get next destination line number 
J Loop if more lines to scroll down 



J Get top line to blank 

.; Get # of line to clear 

i Clear that 1 ine 

; Advance line number 

.; Loop if more lines to clear 



Move cursor to column i 
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i C .1 NSL - - I n s <? r t line •:. 

58 003166 012762 OOOOOi OOOOOOG MDV #1 , DW*COL (R2> i Bay cursor is at column 1 

59 i 

60 '> Finished 
6.t ; 

62 003174 01260r/ 9$: MOV (SP)+, RT? 

63 003176 01.2604 MOV <SP)+, R4 

64 003200 01260;j MOV <SP)+, !?3 

65 003202 01260.1 MOV (SP)+, R.t 

66 003204 000207 RETURN 



TSWIN — 
TCDELL - 

1 

2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 

32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
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— Delete specified number of lines 



Monday 21 -Dec -37 07: 45 Page 



003206 
0032 1 
003212 
003214 



003216 
003222 
003226 
003230 
003234 



003236 
003242 
003244 
003246 
003252 
003256 
003260 
003262 
003264 



003266 
003270 
003272 
003274 
003276 
003300 
003302 
003306 
003310 



003312 
003316 
003320 
003324 



010146 
010346 
010446 
010546 



016203 
020362 
103442 
020362 

101037 



005700 
003002 
1 2700 
016201 
160301 
005201 
020100 
101412 



010305 
010103 
160003 
010001 
010504 
060104 
004737 
00 5205 
077306 



016203 
010300 
004737 
077104 



0000000 
OOOOOOG 

0000000 



37 0021 16-' 



000001 
0000000 



006346 ' 



OOOOOOG 
006232 ' 



. SBTTL. TCDEi.L 



Delete specified number of lines 



Delete the specified number of lines starting with the one in luhich 
the cursor is positioncrd. 



I n )• 1 1 1 B ; 
f^2 = Pointer to window control block 
f?5 = Pointer to command string argument 



TCDELL: MOV 
MOV 
MOV 
MOV 



R 1 , " ( Sf ' ) 
R3, -<BP> 
R4, -(SP) 
R5, ~(&P) 



MOV 


DW*LIN<R2)>R3 


CMP 


R3, DW*SRT(R2) 


BLO 


9* 


CMP 


R3> DW*SRB(R2) 


BHI 


9* 



1$: 



Ignore this command if we are not within the scroll region 

; Get current line number 

; Are we above top to scroll region? 

■> Br if yes 

> Are we below bottom of scroll region? 

; Br if yes 

Determine how many lines will be deleted 

j Get command parameter 

.! Wa s specified? 

; Br if not 

; Set it to 1 

; Get bottom line # of scroll region 

; Get # lines from current to end of region 

J This is max # deleted lines 

; Can we delete as many as requested? 

i Br if all lines are deleted 



CALL 


CSPARM 


TST 


RO 


BGT 


1* 


MOV 


#1. RO 


MOV 


DW*SRB<R2), Rl 


SUB 


R3, Rl 


INC 


Ri 


CMP 


Rl, RO 


BtOS 


2* 



Scroll up the remaining lines. 



3*^: 



MOV 


R3, R5 


MOV 


Rl, R3 


SUB 


RO, R3 


MOV 


RO, Rl 


MOV 


R5, R4 


ADD 


R1,R4 


CALL 


CPYLIN 


IMC 


R5 


SOB 


R3, 3* 



; Get current line number 

J Get number of lines to scroll 

i Get # lines being inserted 

; Get line to copy from 

; Copy a line up 

,; Advance line number 

i Br if more lines to copy 



Blank fill lines at end of scrolling region 



2*: 


MOV 


DWfSRB<R2),R3 


4*: 


MOV 


R3, RO 




CALL 


CLRLIN 




SOB 


Rl, 4* 



012762 000001 OOOOOOG 



Say cursor is at column 1 
MOV #1, DW*C0L(R2) 



i Get # of line at bottom of region 

j Get # of line to blank fill 

; Blank the 1 ine 

iLoop if more lines to blank 



j Say cursor is at column 1 



TSWIN — 
TCDELL -■ 

58 
59 
60 
61 
62 
63 
64 



SX-Plus Display Windo MACRO V05. 04 
Delete specif-led number of lines 



003334 
003336 
003340 
003342 
003344 



0:l260r) 
012604 
012603 
012601 
000207 



9$: 



4 Monday 


21 "Dec -87 07 


F i J i i & h e d 




Moy 


(SP)+, R!.7 


MOV 


(SP)+, R4 


MOV 


<SP)+, R3 


MOV 


(SP)+, Rl 


RETURN 



1-5 Paqe 
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character set 



J. 

2 

3 

4 

5 

h 

7 

S 

9 

3.0 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 



. SBTTL TCGOAS — Designate <50 as ascii character set 

Designate the 00 character set as ascii characters. 

Inputs : 
R2 ~ Pointer to window control block 



003346 10 5062 OOOOOOG 
003352 000207 



7CG0AS: CLRB DW$G0M(R2) 
RETURN 



i Set character set number 



003354 112762 000001 
003362 000207 



003364 1 1 2762 000002 
003372 000207 



003374 112762 000003 
003402 000207 



. SBTTL TCG0D3 — Designate GO as DEC supplemental character set 

Designate the GO character set as DEC supplemental character set. 

Inputs: 
R2 = Pointer to window control block. 

OOOOOOG TCGODS: MOVE #1. DW*GOM< R2) ; Set character set number 

RETURN 

. SBTTL TCOOUK — Designate GO as UK national character set 

Designate the GO character set as UK national character set. 

Inputs; 
R2 = Pointer to window control block. 

OOOOOOG TCGOUK: MOVE #2. DW*GOM< R2) i Set character set number 

RETURN 

. SBTTL TCGOGR — Designate GO as graphics character set 

Designate the GO character set as graphics characters. 

1 n p u 1 1> : 
R2 -- Pointer to window control block. 

OOOOOOG TCGOGR: MOVB #3. DW$G0M(R2) i Set character set number 

RETURN 



( 



TSWIN - 
TCQIAS 

1 



- TSX--rius Disp 

— Designate- Gi 
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as ascii character set 



3 

4 

5 

6 

7 

a 003404 

9 003410 
10 
11 
12 
13 
14 
15 
16 
17 

IS 003412 
19 003420 
20 
21 
22 
23 
24 
25 
26 
27 

28 003422 

29 003430 
30 

31 
32 
33 
34 
35 
36 
37 

38 003432 

39 003440 



. SBTTL TCGIAS ~ Designate Gl as ascii character set 

Designate the Gl character set as ascii characters. 

Inputs;: 
R2 = Pointer to window control block 



10 5062 
000207 



0000000 



i 1 2762 
000207 



1 1 2762 
000207 



TCGIAS: CLRB DW$G1M<R2) 
RETURN 



; Set character set number 



SBTTL TCGIDS — Designate Gl as DEC supplemental character set 

Designate the Gl character set as DEC supplemental character set. 

I n p u t i j : 
R2 " Pointer to window control block. 

000001 OOOOOOG TCGIDS: MOVB #1, DW*G1M<R2> ; Set character set number 

RETURN 

. SBTTL TCGIUK "•- Designate Gl as UK national character set 

Designate the Gl character set as UK national character set. 

I n p u t s : 
R2 " Pointer to window control block. 



000002 OOOOOOG TCGIUK: MOVB #2, DW*G1M<R2> 

RETURN 



Set character set number 



112762 
000207 



.SBTTL TCGIGR — Designate Gl as graphics character set 

Designate the Gl character set as graphics characters. 

1 n p u t H- : 
R2 = F^ointer to window control block. 

000003 OOOOOOG TCGIGR: MOVB #3, DW*G1M(R2) i Set character set number 

RETURN 



TSWIN — 
T(::G2AS 

1 

P 

3 
4 



8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 
27 
28 
29 
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. BBTTL TCG2AS — Designate G2 as ascii character set 

Desianate the G2 character set as ascii characters. 

I n p V t ir> : 
Rk' - Pointer to window control block 



003442 105062 0000000 
003446 000207 



TCe2AS: CLRB DW*G2M<R2) 
RETURN 



> Set character set number 



. SBTTL TCG2DS - Designate 02 as DEC supplemental character set 

Designate the 02 character set as DEC supplemental character set. 

I n p u t s : 
Rli ~ Pointer to window control block. 

003450 112762 000001 OOOOOOG TCG2DS: MOVB #1 , DW«G2M<R2) ; Set character set number 
003456 000207 F^ETURN 

. SBTTL TCG2GR — Designate G2 as graphics character set 

Designate the G2 character set as graphics characters. 

Inputs: 
R2 = Pointer to window control block. 

003460 112762 000003 OOOOOOG TCG2GR: MOVB #3.. DW*G2M(R2) J Set character set number 
003466 000207 RETURN 



TSWIN — 
TCG3AS - 

:l 

3 

4 

5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
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■ Designate 0,'J as ascii character set 



. SBTTL TCG3AB — Designate 03 as ascii character set 

Designate the 03 character set as ascii characters. 

Inputs; 
R2 = Pointer to mindow control block 



003470 105062 OOOOOOG 
003474 000207 



TCG3AS: CLRB DW«03M(R2) 
RETURN 



; Set character set number 



.SBTTL TCG3DS ■ — Designate G3 as DEC supplemental character set 

Designate the G3 character set as DEC supplemental character set. 

Inputs; 
R2 = Pointer to window control block. 

003476 112762 000001 OOOOOOG TCG3DS; MOVB #1 . DW*G3M< R2) ; Set character set number 
003504 000207 RETURN 

. SBTTL TCG3GR — Designate G3 as graphics character set 

Designate the G3 character set as graphics characters. 

Inputs; 
R2 = Pointer to window control block. 

003506 112762 000003 OOOOOOG TCG3GR: MOVB #3, DW$G3M< R2) ; Set character set number 
003514 000207 RETURN 



TSWIN — TSX-Plui;. Display Windo 
TCSO — Shift-out character ■•■- 



MACRO V0!5. 04 Monday 21-Dec-S7 07:45 Page 32 
Lock shift Gl to GL 



.1 
2 
3 
4 
5 
6 
7 

8 003516 

9 003524 
10 

11 

12 

13 

14 

15 

16 

17 

IS 003526 

19 003532 

20 

21 

22 

23 

24 

25 

26 

27 

28 003534 

29 003542 
30 

31 
32 
33 
34 
35 
36 
37 

38 003544 

39 003552 
40 

41 
42 
43 
44 
45 
46 
47 

48 003554 

49 003562 
50 

51 
52 
53 
54 
55 
56 



. SBTTL TCSD 



— Ghift-out character - Lock shift SI to GL 



The shift-out character is used to lock character set 01 to GL. 



1 1 2762 
000207 



000001 



Inputs: 
R2 ~ F*o inter to uiindoui control block 



OOOOOOG TCSO: MOVE #1 . DW«GLM(R2) i Map GL to Gl 

RETURN 



.SBTTL TCSI — Shift-in character - Lock shift GO to GL 

The shift-in character is used to lock character set GO to GL. 

Inputs: 
R2 == Pointer to loindow control block. 



105062 
000207 



OOOOOOG 



TCSI: CLRB DW*GLM(R2) 
RETURN 



;Map GL to GO 



U2762 000002 
000207 



.SBTTL TCLS2 ~ Lock shift G2 to GL 

Set 02 as current GL chai^atter set. 

Inputs: 
R2 = Pointer to ujindow control block. 



OOOOOOG TCLS2: MOVB #2, DW«GLM( R2) ; Map GL to G2 

RETURN 



.SBTTL TCLS3 -- Lock shift G3 to GL 
Set G3 as current GL character set. 



1 1 2762 
000207 



000003 



I n p u t B : 
F?2 = Pointer to window control block. 



OOOOOOG TCLS3: MOVB #3, DW*GLM<R2) i Map GL to G3 

RETURN 



.SBTTL TCLSIR - Lock shift Gl into GR 

Set Gl as current GR character set. 



112762 000001 
000207 



I n j,i u t B : 
R2 ~ F^ointer to window control block. 



OOOOOOG TCLSIR: MOVB #1 , DW«GRM<R2) ; Map GR to Gl 

RETURN 



SBTTL TCLS2R — Lock shift G2 into GR 



Set G2 as the GR character set. 

Input s : 
R2 - f^ointer to window control block. 



TBWIN — - TSX-PlLUi DispL-jy Windo 
TCi.S2R • Lock shift t>'P into GR 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
So 
87 
88 
89 
90 
91 



003564 
003572 



1 1 2762 
000207 



000002 OOOOOOG TCLS2R: MOVE #2, DW*GRM< R2) i Map GR to G2 

RETURN 

. SBTTL TCLS3R -- Lock shift G3 into GR 



003574 
003602 



1 1 2762 
000207 



000003 OOOOOOG 



Set G3 as the GR character set. 

Inputs: 
R2 = F>ointer to uindou) control block. 

TCLS3R: MOVB #3, DW*GRM< R2) ; Map GR to G3 
RETURN 

-SBTTL TCSS2 — Single shift G2 to GL 



003604 
003612 
003620 



1 1 2762 
052762 
000207 



000002 
OOOOOOG 



OOOOOOG 
OOOOOOG 



Set G2 as GL for next character only. 

1 n p t) t B : 
R2 = F^'ointer to window control block. 

TCSS2: MOVB #2, DW*GLS(R2) i Map GL to G2 for next character only 
BIS #AW*SS, DW*AW<R2)i Remember single shift is pending 

RETURN 



.SBTTL TCSS3 — Single shift G3 to GL 



003630 
003636 



1 1 2762 
052762 
000207 



000003 
OOOOOOG 



OOOOOOG 
OOOOOOG 



Set 03 as GL for nest character only. 

1 n f > I) t B : 
R2 = Pointer to uiindou) control block. 

TCSS3: MOVB #3, DW$GLS<R2) ; Map GL to G3 for next character only 
BIS #AW«SSi DW$AW<R2); Remember single shift is pending 

RETURN 



TSWIN — 


■ Ts:x'~pi 


u s D i s p H 


ti y W i n d o 


TCSAA - 


— Set A 


NSI attr 


:i. b u t e 


J. 
2 








( 3 








4 








5 








i 6 








7 








8 








i 9 


003640 


010346 




10 


003642 


012703 


004112' 


11 


003646 


004737 


003730 ' 


i 12 


003652 


012603 




13 


003654 


000207 




14 








i 15 








16 








17 








1 18 








19 








20 








< 21 








22 








23 


003656 


010346 




< 24 


003660 


012703 


004112' 


25 


003664 


004737 


003766 ' 


26 


003670 


012603 




< 27 


003672 


000207 




20 








29 








C 30 








31 








32 








t 33 








34 








35 








I € 36 








37 


003674 


010346 




3S 


003676 


012703 


004120' 


i 39 


003702 


004737 


003730 ' 


40 


003706 


012603 




41 


003710 


000207 




i 42 








43 








44 








i 45 








46 








47 








i 48 








49 








50 








i 51 


003712 


010346 




52 


003714 


012703 


004120' 


53 


003720 


004737 


003766 ' 


i 54 


003724 


012603 




55 


003726 


000207 
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. SBTTL TCSAA — Bet ANSI attribute 

Set an ANSI terminal attribute. 

Inputs: 
R2 ~ Pointer to window control block 
Rb " Pointer to parameter values 



TCSAA: MOV R3, -(6P) 

MOV # AS AT AT, R3 

CALL TCSTA 

MOV (SP>+. R3 
RETURN 

. SBTTL TCRAA 



; Point to ANSI conversion table 
; Go set the attribute 



Reset ANSI attribute 



Reset an ANSI terminal attribute. 

Inputs: 
R2 - Pointer to window control block 
R5 == Pointer to parameter values 



TCRAA: MOV R3, -<SP) 

MOV #ASATAT.. R3 

CALL TCRTA 

MOV (SP)+, R3 
RETURN 

. SBTTL TCSDA 



i Point to ANSI conversion table 
; Reset the attribute 



Bet DEC attribute 



Set a DEC terminal attribute 

I n p u t B : 
R2 = Pointer to window control block 
R5 = Pointer to parameter values 



TCSDA: MOV R3, -(SP) 

MOV #DECTAT, R3 

CALL TCSTA 

MOV <SP)+, R3 
RETURN 



; Point to DEC conversion table 
; Set the attribute 



SBTTL TCRDA — Reset DEC attribute 



Reset a DEC terminal attribute 

Inputs: 
R2 =^ Pointer to window control block 
R5 "- Pointer to parameter values 



TCRDA: MOV R3, -<SP) 

MOV #DECTAT, R3 

CALL TCRTA 

MOV <SP)+,R3 
RETURN 



; Point to DEC conversion table 
.; Reset the attribute 



{ 



K 



TSWIN — TSX-Plus Display Windo MACRO 
TCSTA -•-- Set terminal attribute 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 



003730 010446 



003732 004737 002116' 
003736 103411 



003740 010004 

003742 004737 004060' 

003746 103771 



003750 050062 OOOOOOG 



003754 004737 004152' 



003760 000764 



003762 012604 
003764 000207 
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. SBTTL TCSTA — Get terminal attribute 

Set a terminal attribute 

Inputs: 
R2 ~ Pointer to uindouj control block 

R3 = Pointer to table to convert attribute value to flag bit 
R5 = Pointer to parameter values 

rCSTA: MOV R4, -<SP) 

Begin loop to accrue attribute parameters until end of string hit 



1*: 



CALL 



CSPARM 
9* 



; Accrue next parameter value 
j Br if no more parameter values 



MOV 


RO, R4 


CALL 


CVTTAV 


DCS 


1* 



Convert parameter value into flag mask 

; Save parameter value 

; Convert parameter value into flag mask 

i Br if parameter not recognized 

Set appropriate flag bit 

BIS R0*DW$AW<R2) ; Set appropriate attribute flag 
See if this change requires doing more than setting a flag bit 

CALL CKTAC ; Check for additional changes 

See if there are more attributes to set 

BR 1* 

Finished 

9*: MOV <SP)H-, R4 
RETURN 
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TCRTA — Reset termina:! attribute 

. SBTTL TCRTA — Rt?i.et terminal attribute 

ReBPt a terminal attribute? 



1 

2 
3 
4 
5 
6 
7 

a 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3Q 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



003766 010446 



003770 004737 002116' 
003774 103427 



003776 020027 000002 

004002 001013 

004004 052762 OOOOOOG OOOOOOG 

004012 116204 OOOOOOQ 

004016 116404 0000000 

004022 052764 OOOOOOG OOOOOOG 

004030 000757 



004032 010004 

004034 004737 004060' 

004040 103753 



004042 040062 OOOOOOG 



004046 004737 004152' 



004052 000746 



004054 012603 
004056 000207 



Inputs; 
F?2 = F^ointer to window control block 

R3 = Pointer to table to convert attribute value to flag bit 
R5 = Pointer to parameter values 

TCRTA: MOV R4, -<SP) 

Begin loop to accrue attribute parameters until end of string hit 



CALL 
DCS 



CSPARM 
9* 



; Accrue next parameter value 
; Br if no more parameters 



Check for special parameter value 2 which means select VT52 mode 

CMP RO, #2 J Select VT52 mode? 

BNE 2* ; Br if not 

BIS #AW$S52, DW*AW<R2) J Enable VT52 simulation mode for window 

MOVB DW*J0B<R2). R4 ; Get out job index number 

MOVB LNPRIM(R4). R4 > Get our primary job # 

BIS #*V52EM, LSW11(R4); Say we are emulating a VT52 

BR 1* 



Convert parameter value into flag mask 



2^S: 



MOV 


RO, R4 


CALL 


CVTTAV 


BCS 


1* 



; Save parameter value 

; Convert parameter value into flag mask 

; Br if parameter value not recognized 



9* 



Reset appropriate flag bit 

BIC R0*DW*AW<R2) ; Reset appropriate attribute flag 
See if this change requires doing more than clearing a bit 

CALL CKTAC ; Check for special mode changes 

See if there are more attributes to reset 

BR 1 $ 

Finished 

MOV (SP)+, R3 
RETURN 



{ 



{ 
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CVTTAV — Convert terminal attribute value to fiaq 



4 



6 








7 








S 








9 








10 








11 








12 








13 


004060 


010346 




14 








15 








16 








17 


004062 


020023 




IS 


004064 


00 1 406 




19 


004066 


005723 




20 


004070 


005713 




21 


004072 


00 1 373 




22 








23 








24 








25 


004074 


005000 




26 


004076 


000261 




27 


004100 


000402 




28 








29 








30 








31 


004102 


011300 




32 


004104 


000241 




33 








34 








3 b 








36 


004106 


012603 




37 


004110 


000207 




38 








39 








40 








41 








42 


004112 


000004 


0000000 


43 


004116 


000000 




44 








45 








46 








47 


004120 


000001 


0000000 


48 


004124 


000003 


OOOOOOG 


49 


004130 


00000 D 


OOOOOOG 


50 


004134 


000006 


0000000 


51 


004140 


000010 


OOOOOOG 


52 


004144 


000031 


OOOOOOG 


53 


004150 


000000 





. SBTTL CVTTAV — Convert terminal attribute value to flag 

Convert a terminal attribute parameter value into a flag mask. 

I n p u t B : 
RO -= Attribute value 
R3 = Pointer to table to convert attribute value to flag bit 

Outputs: 
C -Flag set ==> Attribute value not recognized 
RO - Flag mask if attribute value recognized 

CVTTAV: MOV R3, -<SP) 

See if use can find attributf3 value in table 

1*; 



CMP 
BEQ 
TST 
TST 
BME 



RO, (R3) + 
2* 

<R3) + 
<R3) 
1* 



Is next entry for our value? 

Br if yes 

Skip over flag mask 

Is there another entry in table? 

Br if yes 



Attribute value is not in table 

RO 

9* 
We found the attribute in the table 

<R3), RO 



CLR 
SEC 
BR 



i Return no flag mask 

; Signal failure on return 



MOV 
CLC 

F i { i i G h e d 



J Get the flag mask 

; Signal success on return 



7$: 



MOV 
RE'TURN 



<SP)+, R3 



Table to relate ANSI attribute values with flag masks 



ASATAT: . WORD 
. WORD 



4. , AW*INS 




; Insert mode 



Table to relate DEC attribue values with flag masks 



DECTAT: 


. WORD 


1. , AW*ACK 




. WORD 


3, , AW$132 




. WORD 


5. , AW*REV 




. WORD 


6. > AW$ORS 




. WORD 


8. , AW*RPT 




. WORD 


25. , AW*VCR 




. WORD 






Application mode for cursor keys 

132 column mode 

Reverse video 

Origin relative to scroll region 

Automatic keypad repeat 

Make cursor visible 

End of table 
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CKTAC — Check far complex mode uhantjes 



2 
'-J 

4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 



004 15^ 



004152 020427 000006 

004156 001003 

004160 004737 005110' 

004164 00041:'/ 



SBTTL CKTAC 



Check for complex mode changes 



This routine is called each time a terminal attribute changes to see 
if me must do things other than setting or clearing an attribute flag. 

Inputs: 
R2 = Pointer to mindow control block 
R4 -. Parameter value specified with attribute change command. 



CKTAC : 

If we just changed the origin mode> home the cursor 



i Change origin mode? 

i Br if not 

i San cursor has moved to home 



If we just changed line width <S0/132 mode)* clear the screen* 
set scrolling region to full screen) and home the cursor. 



CMP 


R4, #6 


BNE 


1* 


CALL 


SETHOM 


BR 


9* 



004166 020427 000003 

004172 001 OIL' 

004174 012762 000001 OOOOOOG 

004202 016262 0000000 OOOOOOG 

004210 004737 005110' 

004214 004737 006210' 



004220 000207 



1*: CMP 
BNE 
MOV 
MOV 
CALL 
CALL 

Finished 

9*: RETURN 



R4, #3 i Change line width? 

9* i Br if not 

#1, DW$SRT<R2) iSet top scroll line to 1 

DW$LPP(R2), DW«5RB<R2) i Set bottom scroll line to end of page 

SETHOM ; Set cursor to home position 

ERSPAG ; Erase the entire page 
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TCAKM — Select application keypad mode 



, SBTTL TCAKM — Select r3pplication keypad mode 

Select application keypad mode 

Inputs: 
R'lrl ~ Pointer to ujindoui control block 



1 

2 

3 

4 

5 

6 

7 

S 004222 052762 0000000 OOOOOOG TCAKM: BIS #AW*AKM, DW*AW<R2) ; Say we are in application keypad mode 

9 004230 000207 RETURN 

10 

11 .SBTTL TCNKM — Select numeric keypad mode 

12 

Select numeric keypad mode 



13 

14 

IS 

16 

17 

IS 004232 042762 OOOOOOG OOOOOOG TCNKM: BIC #AW*AKM, DW*AW(R2) ; Reset application keypad mode 

19 004240 000207 RETURN 



Inputs: 
Rk = Pointer to window control block 



TSWIN — TSX-Plus Display Windo 
TCN3 - - Set line attributes 



3 








4 








5 








6 








7 








S 








10 


004242 


004737 


006612' 


11 


004246 


042700 


0000000 


12 


004252 


052700 


0000000 


13 


004256 


004737 


006522' 


14 


004262 


000207 




15 








16 








17 








IS 


004264 


004737 


006612' 


19 


004270 


042700 


OOOOOOG 


20 


004274 


052700 


0000000 


21 


004300 


004737 


006522' 


22 
23 
24 
25 
26 


004304 


000207 




004306 


004737 


006612' 


27 


004312 


042700 


0000000 


28 


004316 


004737 


006522' 


29 


004322 


000207 




30 








31 








32 








33 


004324 


004737 


006612' 


34 


004330 


052700 


OOOOOOG 


35 


004334 


004737 


006522' 


36 


004340 


000207 
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. SBTTL TCN3 — Set line attributes 

Set attributes for the current line. 

Inputs: 
R2 ~ f^ointer to window control block 

Line is top half of double-high line 



TCN3: 



CALL 


GETLAB 


I3IC 


#AL*DHB, RO 


BIS 


#AL*DHT. RO 


CALL 


SETLAB 


RETURN 





Get current line attribute flags 
Clear doub le-high-bottom flag 
Set double-high-top flag 
Store new attribute flags for line 



Line is bottom half of double-high line 



TCN4: 



CALL 


GETLAB 


BIC 


#AL*DHT.. RO 


BIS 


#AL*DHB, RO 


CALL 


SETLAB 


RETURN 





Get current line attribute flags 
Clear double-high-top flag 
Set double-high-bottom flag 
Store new attribute flags for line 



Line is single width 



TCN5: 



CALL 


GETLAB 


BIC 


#AL*DWD, RO 


CALL 


SETLAB 


RETURN 





Line is double width 



TCN6: 



CALL 
BIS 
CALL 
RETURN 



GETLAB 
#AL*DWD, RO 
SETLAB 



Get current line attribute flags 

Clear double-wide attribute 

Store new attribute flags for line 



Get current line attribute flags 

Set double-wide flag 

Store new attribute flags for line 



TSWIN - 
TCSCA • 

1. 



- TSX-PiuB Displ 

— Set character 



3 








4 








5 








6 








7 








8 








9 


004342 


010346 




10 








11 








i;;2 








13 


004344 


121527 


000155 


14 


004350 


00 1 004 




IS 


004352 


142762 


OOOOOOC 


16 


004360 


000422 




17 








18 








19 








20 


004362 


004737 


002116' 


21 


004366 


103417 




22 








23 








24 








25 








26 


004370 


012703 


004432' 


27 


004374 


120023 




28 


004376 


001406 




29 


004400 


062703 


000002 


30 


004404 


020327 


004465' 


31 


004410 


103771 




32 


004412 


000763 




33 








34 








35 








36 








37 


004414 


1 52362 


0000000 


38 


004420 


142362 


OOOOOOG 


39 


004424 


000756 




40 








41 








42 








43 


004426 


012603 




44 


004430 


000207 
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. SBTTL TCSCA — Opt character attributes 
Specify attributes for characters that foliotu 



Inputs: 
R'ri = Pointer to window control block 
R5 = Pointer to start of parameter values 

TCSCA: MOV R3, -<SP) 

If no parameters were specified^ reset all character attributes 

CMPB (R5),#'m J Any attributes specified? 

BNE 1* iBrifyes 

BICB #<AC*BLD!AC1!BLK!AC*REV!AC*ULN>, DW*CCA<R2);Clear all attributes 

Bf< 9* ; Finished 



Begin loop to accrue and process each parameter 



1*: 



CALL 
BCS 



CSPARM 
9* 



/Accrue next parameter value 
.; Br if no more parameter values 



2*: 



Look up parameter value to determine which attribute flags 

are to be set and reset. 



Point to attribute table 

Search for parameter value in table 

Br if found it 

Skip over flag bytes 

Reached end of tabled' 

Keep looking if not 

Cannot find this parameter value 



Found parameter value in table. 
Set and reset some flacjs 



MOV 


#CATABL, R3 


CMPB 


RO, (R3) + 


BEG 


3* 


ADD 


#2, R3 


CMP 


R3, #CATEND 


BL.0 


2* 


BR 


1« 



3^: BISB 

BICB 
BR 

Finished 

?*: MOV 

RETURN 



(R3)+, DW*CCA<R2)i Set some attributes 

<R3)+, DW*CCA(R2)i Reset some attributes 

1* ; Process any other attributes 



<SP)+, R3 



€ 
< 
i 
€ 



TSWIN -- 


- TSX~P 


TCSCA - 


— Set 


J. 
2 




3 




4 




5 




A 




7 




S 


004432 


9 


004435 


10 


004440 


11 


004443 


12 


004446 


13 


004451 


14 


004454 


15 


004457 


16 


004462 


17 


004465 


18 
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000 
001 
004 
00 D 
007 
026 
030 
031 
033 



000 


oooc 


CATABL: 


. BYTE 


oooe 


000 




. BYTE 


0000 


000 




. BYTE 


OOOG 


000 




. BYTE 


OOOG 


000 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 




. BYTE 


000 


OOOG 


CATEND: 


. BYTE 



Table to convert attribute parameter values into flags to be 
set and reset. 

Each entry has three values: (1) numeric parameter value that 
occurs in control sequence* <2) flags to be set; (3) flags to 

be reflet. 



0. , 0, AC*BLD ! AC*BLK ! AC*REV ! AC*ULN 

1 . , AC*BLD, 

4. , AC*ULN, 

5. , AC*BLK. O 
7. , AC*REV, 
22. ; 0, AC$BLD 

24. , 0> AC*ULN 

25. , 0. AC^BLK 
27. , Q, AC^REV 



EVEN 
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TCIOO — Select VT100/vt200 mode 

. SBTTL TCIOO — Bf.>lE?c,t VT100/VT200 mode 

Set terminal to VTIOO or VT200 mode of operation 



.1 

2 

3 

4 

5 

6 

7 

B 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

Ci. / 

29 
30 
31 
32 

34 
35 
36 
37 
38 
39 
40 
41 



004466 



004466 042762 OOOOOOC OOOOOOG 



004474 116200 0000000 
004500 116000 OOOOOOG 
004504 042760 0000000 OOOOOOG 



004512 116200 OOOOOOG 

004516 032760 OOOOOOC OOOOOOG 

004524 00100r> 



004526 004737 002116' 
004532 020027 000076 
004536 001003 



Inputs; 
R2 = Pointer to window control block 
Rtj ~ Pointer to paramete^r values 



TCIOO: 



Say terminal is not in V"f 52 mode and not in VT200 mode 
<i. e. , set to VTIOO modif) 



BIC 



#<AW*52!AW*S52f AW*200>i DW*AW(R2) ; Terminal is in VTIOO mode 



Reset VT52 emulation-mode flag in entry for primary line so that 
other windows connected to this terminal will know. 

MDVB DW*J0B(R2). RO j Get our line index number 

MOVE LNPRIM(RO), RO > Get number of primary line 

BIC #*V52EM, LSWli <R0) ; Say terminal not emulating a VT52 

If job's terminal type is VT200j set that mode 

MDVB DW*J0B(R2).R0 ; Get job index number 

BIT #<VT2007!VT200S>. LTRMTP<RO)i Is terminal a VT200? 

BNE 1* ; Br if yes 

Get Ist parameter value and see if we should go to VT200 mode 

; Accrue 1st parameter value 
i VT200 mode? 
; Br if not 



CALL 


CSPARM 


CMP 


RO. #62. 


BNE 


9* 



Set terminal type to VT200 
004540 052762 OOOOOOG OOOOOOG 1*: BIS #AW*200, DW«AW<R2) i Set VT200 mode 

F i J > i 6 h B d 
004546 000207 9*: RPTURN 



TSWIN - 
TCREST 



TSX-Plus Display Windo 
■ Terminal reM't 



:L 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

HL \ 

23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



004550 010146 
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. SBTTL TCREST — Terminal reset 

Perform a terminal rejiet operation 

Inputs; 
W,i ~ Pointer to luindoiu control block 

TCREST: MOV R1,-<SP) 

Turn off VT52 emulation mode 



004552 
004560 
004564 
004570 



004576 
004604 



042762 
116201 
116100 
042760 



012762 
016262 



04276^ 



OOOOOOG 
OOOOOOG 
0000000 
OOOOOOG 



000001 
OOOOOOG 



OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOC OOOOOOG 



004620 004737 005110' 



004624 004737 006210' 



004630 
004636 
004640 
004646 
004654 



004662 
004664 



032761 
001411 
1 1 2762 
112762 
1 1 2762 



012601 
000207 



OOOOOOC OOOOOOG 



000001 
000001 
000002 



OOOOOOG 
OOOOOOG 
OOOOOOG 



BIC #AW*S52, DW*AW(R2)j Turn off attribute for window 

MOVB DW$J0B<R2), Rl ; Get our job index number 

MOVE LNPRIM<R1),R0 i Get primary line number 

BIC #*V52EM» LSWli <R0) i Say terminal is not in VT52 mode 

f^e&C't scrolling region 

MOV #1, DW*SRT(R2) i Set top scroll line to 1 

MOV DW*LPP(R2), DW*SRB(R2) i Set bottom scroll line to end of page 

Reset misc window statuu flags 

B I C #< AW* 1 32 ! A W* I NS ! AW* ACK ! AW*ORS ! AW*AKM ! AW*SS ! AW«PRT>, DW*AW ( R2 ) 
Say cursor is at home 

CALL SETHOM i Set cursor to home position 

Erase the entire page 

CALL ERSPAG ; Erase the entire page 

Reset character set mapping for a VT200 



i Br if not 

) Map G2 to DEC supplemental chars 

; Map G3 to DEC supplemental chars 

J Map GR to G2 



9*: 



BIT 


#<VT2007 ! VT20 


BEQ 


9* 


MOVB 


#1> DW*G2M<R2) 


MOVB 


#1, DW*G3M<R2) 


MOVB 


#2, DW*GRM<R2) 


F i 1 1 i B h e d 




MOV 


< SP > +, R 1 


RETURN 





€ 
€ 
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TCF'RT — Printer control operation 

. SBTTL TCPRT — Printer control operation 

.; Direct output to printer or back to terminal. 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



I n p u t s : 
R2 = Pointer to window control block 
R5 =• F^ointer to start of parameter value 



004666 



TCPRT: 



Oet first parameter value and see if we should direct output to printer 
or to terminal. 



004666 004737 002116' 

004672 020027 000005 

004676 00 1 004 

004700 052762 OOOOOOG 0000000 

004706 000406 

004710 020027 000004 

004714 001003 

004716 042762 OOOOOOG 0000000 



004724 000207 



1$: 



CALL 

CMP 

BNE 

BIS 

BR 

CMP 

BNE 

BIC 



; F i n i s- h e d 
9f: RETURN 



CSPARM J Get first parameter value 

ROj #5 ; Direct output to printer? 

1* J Br if not 

#AW$PRT, DW*AW<R2)i Direct output to printer 

9* 

RO/ #4 ; Direct output to terminal? 

9* .; Br if not 

#AW«PRT.. DW*AW(R2)i Direct output to terminal 



TSWIN ■■ 
TCLERS 



TSX-Plus Display Windo MACRO V05. 04 Monday 21-Dec-87 07: 4f. Page 45 
■ Erase within a line 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 



004726 



004726 004737 002116' 

004732 005700 

004734 001003 

004736 004737 005632 ' 

004742 000413 

004744 020027 000001 

004750 001003 

004752 004737 005744 ' 

004756 000405 

004760 020027 000002 

004764 001002 

004766 004737 005546" 



Erase within a line 



, SBTTL TCLERS 

ErcGt? within a line. 

Inputs : 
R2 = Pointer to window control block 
R5 " Pointer to start of parameter value 

TCLER'3: 

Accrue parameter value to determine what type of evaBs this is 

; Accrue parameter value 

J Parameter = 0? 

; Br if not 

j Erase from cursor to end of line 



1*: 



?*: 



CALL 


CSPARM 


TST 


RO 


BNE 


1$ 


CALL 


ERSCTL 


BR 


9* 


CMP 


RO, #1 


BNE 


2* 


CALL 


ERSLTC 


BR 


9* 


CMP 


RO, #2 


BNE 


9* 


CALL 


ERSLIN 



c:. 



S 004772 000207 



F i ri i & h e d 
9*: RETURN 



; Parameter = 1? 

; Br if not 

; Erase from beginning of line to cursor 

i Parameter = 2? 

i Br if not 

; Erase entire line 



TSWIN - 
TCPERS 



3 

4 

5 

6 

7 

8 

9 

10 

H 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

2^ 

26 

27 

28 



004774 



004774 004737 002116' 

005000 005700 

005002 001003 

005004 004737 006030 ' 

005010 000413 

005012 020027 000001 

005016 001003 

005020 004737 006112' 

005024 00040i> 

005026 020027 000002 

005032 001002 

005034 004737 006210' 



005040 000207 
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■ Erase within a page 

. BBTTL TCPERS — Ertise within a page 

EraKe characters within the current page. 

I n p u 1 5 ; 
R2 = Pointer to windouj control block 
R5 ~ Pointer to start of parameter value 

TCPERS: 

Accrue parameter value and determine how much to erase 



2*: 



I - i n i B h e d 
9$: RETURN 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


CALL 


ERSCTP 


BR 


9* 


CMP 


RO, #1 


BNE 


2* 


CALL 


ERSPTC 


BR 


9* 


CMP 


RO, #2 


BNE 


9* 


CALL 


ERSPAG 



.; Accrue parameter 

} Parameter = OT-" 

i Br if not 

i Erase from cursor to end of page 

.; Parameter = IT' 

J Br if not 

; Erase from beginning of page to cursor 

i F^arameter = 27-' 

i Br if not 

> Erase entire page 



TSWIN — TSX-Plus Display Windo 
TCSSR — Set scrolling region 



1 
2 
3 
4 

S 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IB 
19 
20 
21 
22 
23 
24 
25 
26 
27 

2e 

29 
30 
31 
32 
33 



00504c 



005042 
005046 
005050 
005052 
005056 



005062 
005066 
005070 
005072 
005076 



004737 
005700 
00 1 002 
012700 
010062 



004737 
005700 
001002 
016200 
010062 



002116' 



000001 
0000000 



002116' 



OOOOOOG 
000000(3 



005102 004737 005110' 



005106 000207 
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. SBTTL TCSSR — Bet scrolling region 

Set the scrolling region. 

Inputs : 
R2 - Pointer to window control block 
R5 == Pointer to parameter values 

TCSSR: 

Accrue scrolling region top value 



CALL 


CSPARM 


TST 


RO 


BNE 


1* 


MOV 


#1, RO 


MOV 


RO, DW*SRT(R2) 



Accrue scrolling region top line 

Was top line number specified? 

Br if yes 

Set 1 as top line 

Set top line of scrolling region 

Accrue scrolling region bottom value 

j Accrue scrolling region bottom line 
jWas bottom line specified? 
i B r if yes 

i Set last line as bottom of region 
2*: MOV RO, DW*SRB<R2) i Set bottom line of scrolling region 

Set the cursor to the home position 

CALL SETHOM ; Set cursor to home position 

F i tT i B h e d 

RETURN 



CALL 


CSPARM 


TST 


RO 


BNE 


2* 


MOV 


DW*LPP<R2),R0 
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SETHOM -- Set cursor to the home position 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



005110 



. SBTTL SETHOM — Set cursor to the home position 

This routine is called to set the current cursor position to 
home. The home line depends on whether absolute or relative 
oritiin has been selected. 

Inputs: 
R2 ~ Pointer to uindouj control block. 

SETHOM: 

Set the cursor line number. 

See if absolute or relative origin has been selected. 



005110 032762 OOOOOOG 0000000 BIT 

005116 001403 BEO 

005120 016200 OOOOOOG MOV 

005124 000402 BR 

005126 012700 000001 1$: MOV 

005132 004737 006702' 2*: CALL 



#AW*ORS» DW*AW(R2)i Is origin relative to scroll region? 



1* 

DW*SRT<R2>, RO 
2* 

#1, RO 
SETLIN 



Set column to 1 



005136 012762 000001 OOOOOOG 



005144 000207 



MOV 
f~ i n j s h e d 

RETURN 



#li DW*C0L(R2) 



; Br if not 

; Say cursor is at top of scroll reg 

; Say cursor is at line 1 
; Set the line number 



Say cursor is at column 1 



TSWIN ■ 
SCRLUP 
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- Scroll screen up one line? 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



. SBTTL SCRLUP — Gtroll screen up one line 

Scroll the screen up one line. 

I n p u t B ; 
R2 = Pointer to window control block. 



005146 010346 
005150 010446 
005152 010546 



005154 012700 000001 
005160 004737 005414' 



SCRLUP: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -iSP) 
R5. -(SP) 



Bee if we are allowed to Ecroll any more lines 



MOV 



#1, RO 
SCRCHK 



; We are scrolling up one line 
; See if scrolling allowed 



005164 026227 0000000 000001 

005172 001013 

005174 026262 OOOOOOG OOOOOOG 

005202 001007 



005204 005362 OOOOOOG 

005210 003016 

005212 016262 OOOOOOG OOOOOOG 



005220 000412 



005222 016203 OOOOOOG 

005226 010305 

005230 005203 

005232 010304 

005234 004737 006346 ' 

005240 020362 OOOOOOG 

005244 103770 



005246 016200 OOOOOOG 
005252 004737 006232 ' 



005256 012605 

005260 012604 

005262 012603 

005264 000207 



If the scrolling region is the entire screen* we can do the scrolling 
by f^imply changing the number of the top line. 

CMP DW$SRT<R2)i #1 ; Top line of scrolling region = 1? 

BNE 2* i Br if not 

CMP DW*SRB(R2)/ DW*LPP<R2)i Scrolling region go to bottom of page? 

BNE 2* i Br if not 

Scrolling region covers the entire page 

DEC DW$TLN(R2) j Change top line number 

BGT 1$ ; Br if did not just scroll line 1 

MOV DW*LPP(R2), DW*TLN<R2)i Cycle to last line on page 

BR 1 * 

The scrolling region does not cover the entire page. 
Move characters from line to line to do the scrolling. 

i Get top line # of scrolling region 
i Set number of line to copy to 

i Set number of line to copy from 

> Copy characters from one line to another 

; Have we copied all that is needed? 

i Loop if not 

Clear the line at the bottom of the scrolling region 

; Get # of line at bottom of scrolling regn 
i Clear that 1 ine 



2*: 


MOV 


DW*SRT(R2),R3 


3*: 


MOV 


R3, R5 




IMC 


R3 




MOV 


R3, R4 




CALL 


CPYLIN 




CMP 


R3, DW*SRB(R2> 




BLO 


3* 



MOV 


DW*SRB<R2.). 


RO 


CALL 


CLRLIN 




Finished 






MOV 


(SP)+, R5 




MOV 


(SP)+, R4 




MOV 


<SP)+, R3 




RETURN 
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SCRLDN — Scroll scret?n down one line 



1 

2 
3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 

45 
46 
47 
48 
49 
50 
51 
52 
53 
54 



005266 010346 
005270 010446 
005272 010546 



005274 012700 177777 
005300 004737 005414' 



005304 026227 0000000 000001 

005312 001016 

005314 026262 0000000 0000000 

005322 001012 



005324 005262 

005330 026262 

005336 101416 

005340 012762 

005346 000412 



OOOOOOG 

0000000 OOOOOOG 

000001 OOOOOOG 



. SBTTL SCRLDN — Strull screen down one line 

Scroll the screen down nnt? line. 

Inputs: 
R'ili -• Pointer to window control block. 



SCRLDN: 



MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
R5, -<SP) 



See if we are allowed to scroll any more lines 



MOV 

CALL 



#-1, RO 
SCRCHK 



; Say we are scrolling down one line 
J See if we are allowed to scroll more 



If the scrolling region is the entire screeni we can do the scrolling 
by simply changing the number of the top line. 

CMP DW*SRT(R2), #1 ; Top line of scrolling region = 1? 

BNE 2* J Br if not 

CMP DW$SRB(R2), DW*LPP<R2)i Scrolling region go to bottom of page? 

BNE 2* ;Br if not 



Scrolling region covers the entire page 



INC 

CMP 

BLOS 

MOV 

BR 



DW*TLN<R2) ; Change top line number 

DW*TLN(R2). DW*LPP<R2)i Did we just scroll last line? 

1* i Br if not 

#l,DWfTLN(R2) J Cycle back to line 1 

1* 



The scrolling region dof?s not cover the entire page. 
Move characters from line to line to do the scrolling. 



005350 016203 OOOOOOG 

005354 010305 

005356 005303 

005360 010304 

005362 004737 006346 ' 

005366 020362 OOOOOOG 

005372 101370 



005374 016200 OOOOOOG 
005400 004737 006232 ' 



005404 012605 

005406 012604 

005410 012603 

005412 000207 



2*: 


MOV 


DW$SRB(R2).. R3 


3*: 


MOV 


R3, R5 




DEC 


R3 




MOV 


R3, R4 




CALL 


CPYLIN 




CMP 


R3, DW*SRT(R2) 




BHI 


3* 



iGet bottom line # of scrolling region 
; Set number of line to copy to 

j Set number of line to copy from 
iCopy characters from one line to another 
i Have we copied all that is needed?" 
;Loop if not 



Clear the line at the top of the scrolling region 



MOV 


DW*SRT(R2.),R0 


CALL 


CLRLIN 


~ i n i s h B d 




MOV 


(SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





; Get # of line at top of scrolling regn 
; Clear that 1 ine 



TSWIN - 
SCRCHK 
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- Check for scrolling limits:. 



5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



005414 010146 



005416 
005424 
005426 
005432 
005440 



005442 
005446 
005450 



005452 
005456 
005460 
005464 
005466 
005470 
005474 



116201 
002415 
001412 



SBTTL SCRCHK 



Check for scrolling limits 



Determine if we are allowed to scroll the screen any further while the 
job is detached from the terminal. If me have reached the limit of 
our scrolling, the job is suspended until the terminal is reconnected. 

Inputs: 
RO = +1 if scrolling up, -1 if scrolling down. 
R2 ~ f^D inter to window control block. 

SCRCHK: MOV R1,-<SP) 

See if job is currently attached to terminal 



032762 0000000 0000000 

00 1 426 

116201 OOOOOOG 

032761 0000000 OOOOOOG 

001420 



BIT 

BEQ 

MOVE 

BIT 

BflQ 



#AW*DBC, DW*AW(R2); Are we suppressing char display? 



9* 

DW*J0B<R2), Rl 
#*VNDTT, LSW(Rl) 
9* 



Br if not 

Get number of job 

Is job currently connected to terminal? 

Br if yes 



Job is not currently attached to the terminal. 

See if we are allowed to scroll an unlimited number of lines. 



OOOOOOG 



MOVB DW*MSL<R2), Rl 
BLT 9* 
BEQ 2* 



; Are we allowed to scroll unlimited # lines? 

; Br if yes 

i Br if no scrolling is allowed 



See if this scroll would exceed limit. 



116201 OOOOOOG 

060001 

110162 OOOOOOG 

002001 

005401 

120162 OOOOOOG 

101402 



1*: 



MOVB 


DW«NSL(R2),R1 


ADD 


RO, Rl 


MOVB 


R1,DW«NSL(R2> 


BGE 


1* 


NEG 


Rl 


CMPB 


R1,DW*MSL(R2) 


BLOS 


9* 



; Get # lines scrolled so far 

; Add number scrolled this time 

i Save new total 

; Br if total is positive 

; Get positive line count 

iWould this exceed max allowed scroll? 

; Br if not 



005476 004737 005506 ' 



005502 
005504 



012601 
000207 



Suspend job until job reattaches to the terminal 
2$: CALL WINSPN i Suspend job 

F' i n i s h e d 

9$: MOV <SP)+, Rl 
RETURN 



TBWIN - 
WINSPN 
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- Suspend job until it reattaches to terminal 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



005506 010146 



005510 105737 0000000 
005514 001012 



005516 116201 0000000 

005522 032761 OOOOOOG OOOOOOG 

005530 001404 



005532 

005540 000766 



005542 012601 
005544 000207 



. SBTTL WINSPN — Suspend job until it reattaches to terminal 

Suspend the execution of a job until it reattaches to a terminal. 

Inputs: 
R'2 - Pointer to windom control block 

WINSPN: MOV R1,-(SP) 

Never suspend if uie are running at fork level <doing character echoing) 



TSTB 
BNE 



FRKPRI 
9* 



J Are we running at fork level? 
i Br if yes 



1^^: 



See if job has reattached to the terminal 

, Rl ; Get job index number 
#*VNOTT, LSW<R1 ) ;l5 job attached to terminal? 

j Br if yes 



; Suspend execution of the job 

iWait till job reconnects to terminal 



9$: 



MOVB 


DW*JOB(R 


BIT 


#*VNOTT, 


BEQ 


9* 


Suspend the 


job 


OCALL 


PCSPND 


BR 


1* 


F i n i s h & d 




MOV 


<SP)+, Rl 


RETURN 





€ 



TSWIN ■• 
ERSLIN 
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- Erase the current line 

. SBTTL ERSLIN — Erase the current line 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 



005546 010346 



005550 016203 OOOOOOG 

005554 016200 OOOOOOG 

005560 

005602 112723 000040 

005606 105023 

005610 

005624 077023 



005626 012603 
005630 000207 



Erase the current line. Do not change the line attributes and leave 
thf? cursor where it is. 

Inputs: 
R2 == Pointer to window control block 

ERSLIN: MOV R3, -(SP) 

Store blanks with ail attributes cleared into all line columns 



MOV 

MOV 

BUFMAP 

MOVE 

CLRB 

UNMAP 

SOB 



F- i n i E h e d 



MOV 
RETURN 



DW*LPT<R2.>, R3 
DW*CPL(R2), RO 

#40, (R3)+ 
(R3) + 

RO, 1« 



<SP)+, R3 



Get pointer to Ist char in line 

Get number of columns per line 

; i Map to display buffer 

>; Store blank as the character 

j i Clear all attribute flags 

Restore mapping 

Clear entire line 
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ERSCTL — Erase from cursor to the end of the line 
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3 








4 








5 








6 








7 








8 








9 








10 


005632 


010346 




11 
12 
13 


005634 


010446 










14 








15 


005636 


016203 


OOOOOOG 


16 


005642 


005303 




17 


005644 


006303 




IS 


005646 


066203 


OOOOOOG 


19 


005652 


016204 


OOOOOOG 


20 


005656 


005304 




21 


005660 


006304 




22 


005662 


066204 


OOOOOOG 


23 








24 








25 








26 


005666 






27 


005710 


1 1 2723 


000040 


28 


005714 


105023 




29 


005716 






30 


005732 


020304 




31 


005734 


101754 




32 








33 








34 








35 


005736 


012604 




36 


005740 


012603 




37 


005742 


000207 





. SBTTL ERSCTL — Erase from cursor to the end of the line 

Erase all characters from the cursor position to the end of the line. 
the cursor does not move. Character attributes are reset for all 
erased characters. 

Inputs ; 
R2 ~ Pointer to window control block 



ERSCTL 



MOV 
MOV 



R3, -<SP) 
R4, -<SP) 



Get pointer to current cursor position and to end of line 



MOV DW«CDL<R2), R3 

DEC R3 

A3L R3 

ADD DW*LPT<R2), R3 

MOV DW*CPL(R2), R4 

DEC R4 

ASL R4 

ADD DW*LPT<R2),R4 

Clear the line to blanks 



1*: 



BUFMAP 




MOVB 


#40, (R3)+ 


CLRB 


<R3) + 


UNMAP 




CMP 


R3, R4 


BLOS 


1* 


Finish e cl 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





Get current column number 

Convert to column offset 

Two bytes are used by each column 

Point to byte for current column 

Get number of columns per line 

Convert to offset 

Two bytes per column 

Get pointer to byte for last column 



< i Map to display buffer 
;; Store blank as character 
;;Clear attribute flags 
Restore mapping 
Finished line? 
Loop if not 



f 
I 

4 
I 
C 
C 
C 
€ 
€ 

i 

i 

< 

i 

c 

4 
< 
i 
< 
i 
i 



TSWIN — 
ERSLTC - 

1 

2 
3 
4 
5 
6 
7 

a 

9 
.10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
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— Erase from beciinninq of line to trurEor 



005744 010346 



005746 016203 OOOOOOG 
005752 016200 OOOOOOG 



005756 

006000 1 1 2723 000040 

006004 105023 

006006 

006022 077023 



006024 012603 
006026 000207 



SBTTL ERSLTC 



Erase from beginning of line to cursor 



Erase from the beginning of the line up to and including the character 
pointed to by the cursor. The cursor does not move. 

I n p u t B : 
R2 = Pointer to window control block. 

ERSLTC: MOV R3, -<SP) 

Set up pointer to start of line and to cursor position 



MOV DW*LPT(R2), R3 
MOV DW*C0L(R2), RO 

Blank the characters 



1$: 



BUFMAP 

MDVB 

CLRB 

UNMAP 

SOB 



f- i n i B h e d 



MOV 
RETURN 



#40, <R3)+ 
(R3) + 

RO, 1* 



<SP)+, R3 



; Get pointer to 1st byte for the line 
; Get current cursor column 



.; ; ; Map to display buffer 

i ;; Store blank as the character 

; } i Clear attribute flags 

; Restore mapping 

i Loop if more characters to clear 



TSWIN ■ 
tRSCTP 
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-~ Erase from cursor to the end of the paqe 



i 
f 



1 

2 
3 
4 
5 
6 
7 
& 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
3o 
37 
38 
39 
40 
41 



006030 010546 

006032 016246 OOOOOOG 



006036 016205 0000000 



006042 026227 OOOOOOG 000001 
006050 001403 



006052 004737 005632' 
006056 005205 



006060 020562 OOOOOOG 

006064 101005 

006066 010500 

006070 004737 006232 ' 

006074 005205 

006076 000770 



006100 012600 

006102 004737 006702' 

006106 012605 

006110 000207 



BBTTL ERSCTP 



Erase from cursor to the end of the page 



Erase from the current cursor position to the end of the page. 
The cursor does not move. Line attributes for completely erased 
lines are reset. 



Inputs : 
R2 = Pointer to window control block 



ERSCTP: MOV 
MOV 



R5, -(SP) 

DW*LIN<R2), ~<SP)i Save the current line number 



.Initialize the line numbe^r to the current line 

MOV DW*LIN(R2), R5 ; Get current line number 
Determine if we are clearing all of the current line 



CMP DW*CDL<R2), #1 
BEQ 1 * 



; Is cursor at column 1 of current line? 
; Br if yes — Clear all of current line 



Clear from cursor to end of current line 



CALL 
INC 



ERSCTL 
R5 



i Erase to end of current line 
; Advance line number 



Mow clear all lines below current line 



1*: 



9«: 



CMP 


R5> DW«LPP(R2) 


BHI 


9* 


MOV 


R5, RO 


CALL 


CLRLIN 


INC 


R5 


BR 


1$ 


Finished 




MOV 


(SP)+, RO 


CALL 


SETLIN 


MOV 


(SP>+.. R5 


RETURN 





i Have we erased all lines? 

j Br i F yes 

; Get number of line to be cleared 

i Clear the 1 ine 

; Increment line number 

; Bee if there are more to clear 



; Recover original line number 
i Restore line number 






TSWIN - 
ERSPTC 



- TSX-PluB Display Windo MACRO V05. 04 Monday 21~Dec-87 07:45 Page 57 
-~- Erase from beginning of page to cursor 



.1 



4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

2e 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 



. SBTTL ERSPTC 



Erase from beginning of page to cursor 



Erase all of the characters from the beginning of the page up to and 
including the character under the cursor. Line attributes are cleared 
for lines that are comp 1 €?t(?l y erased. 



I n put s : 
R2 = f^ointer to windoui tontrol block 



006112 010446 
006114 010546 



006116 016205 OOOOOOG 



ERSPTC: MOV 
MOV 



R4, -(SP) 
R5, -<SP) 



Initialize line numbeTt 



006 1; 



012704 000001 



MOV 
MOV 



DW$LIW<R2), R5 
#1.. R4 



; Get number of current line 
.: Get number of first line 



006126 020405 

006130 103005 

006132 010400 

006134 004737 006232' 

006140 005204 

006142 000771 



006144 010400 

006146 026262 OOOOOOG OOOOOOG 

006154 001003 

006156 004737 006232' 

006162 000404 

006164 004737 006702' 

006170 004737 005744' 



1*: 



CMP 


R4, R5 


BHIS 


2* 


MOV 


R4. RO 


CALL 


CLRLIN 


INC 


R4 


BR 


1* 



*: 



3*: 



Erase all lines up to^ but not including* current line 

i Have uje reached current line? 

; Br if yes 

; Get number of line to erase 

; Erase the 1 ine 

; Advance the line number 

; See if more lines to erase 

Erase the line the cursor i& on 

; Get number of current line 
DW$C0L(R2), DW*CPL<R2); Is cursor at the end of the line? 

; Br if not 
.; Clear it 

iSelect current line 
j Erase up to cursor 



006174 010500 

006176 004737 

006202 012605 

006204 012604 

006206 000207 



9*: 



006702 



MOV 


R4, RO 


CMP 


DW$COL(R 


BNE 


3* 


CALL 


CLRLIN 


BR 


9* 


CALL 


SETLIN 


CALL 


ERSLTC 


f- i n i s h t? d 




MOV 


R5, RO 


CALL 


SETLIN 


MOV 


<SP)+, RS 


MOV 


<SP)+, R4 


RETURN 





; Get back current line number 
i Select as current line 



i 
I 
I 
I 
i 
i 
i 
i 
c 

i 
i 

€ 

€ 

( 

€ 
I 
C 
1 



TSWIN - 
ERSPAG 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



006210 010546 



016205 ooooooe 

006216 010500 

006220 004737 006232 ' 

006224 077504 



0062 



012605 
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■ Clear entire page to spaces 

. SBTTL ERSPAG - Clear entire page to spaces 

; Clear the entire page to tpaces 

> 

i Inputs: 

■> R2 - Pointer to uindow control block 

ERSPAO: MOV R5, -<SP) 

i Begin loop to clear all lines 



1*: 



006230 000207 



MOV 


DW*LPP<R2),R5 


MOV 


R5, RO 


CALL 


CLRLIN 


SOB 


R5, 1% 


F i ?i i s \\ e d 




MOV 


<SP)+,R5 


RETURN 





i Get last line number 

; Get number of line to clear 

; Clear line to spaces 

i Loop if more lines to clear 



TSWIN — TSX~Plu<i Display Windo MACRO 
CLRLIN — Clear a line to spaces 



2 








3 








4 








5 








6 








7 








& 








9 








10 


006232 


010346 




11 


006234 


010446 




12 


006236 


016246 


ooooooe 


13 








14 








15 








16 


006242 


004737 


006702 ' 


17 








IS 








19 








20 


006246 


016203 


0000000 


21 


006252 


016204 


0000000 


22 


006256 






23 


006300 


112723 


000040 


24 


006304 


105023 




25 


006306 






26 


006322 


077423 




27 








28 








29 








30 


006324 


005000 




31 


006326 


004737 


006522' 


33 








34 








35 


006332 


012600 




36 


006334 


004737 


006702 ' 


37 


006340 


012604 




38 


006342 


012603 




39 


006344 


000207 
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BDTTL CLRLIN — Clear a line to spaces 



Clear a line to spaces and set the line attributes to single high* 
siiitilf? wide. 



I n p u t s : 
RO =• Number of line to be cleared 
R2 - Pointer to window control block 



CLRLIN: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
DW$LIN(R2)> ~<SP); Save current line number 



Select the line to be cleared 

CALL SETLIN 
Blank the line 



1*: 



MOV 


DW*LPT<R2),R3 


MOV 


DW*CPL(R2),R4 


B UP MAP 




MOVQ 


#40, (R3) + 


CLRB 


(R3) + 


UNMAP 




SOB 


R4, 1* 



Reset line attributes 



CLR 
CALL 

Finished 

MOV 

CALL 

MOV 

MOV 

RETURN 



RO 
SETLAB 



(SP)+, RO 
SETLIN 
(SP)+, R4 
<SP)+.. R3 



iSelect line to be cleared 



J Get pointer to start of line 

.: Get # columns in the line 

; i i Map to screen buffer 

j ; i Store blank character 

iiiCiear character attributes 

; Restore mapping 

;Loop if need to store more blanks 



> Set attribute to 

J Reset all line attributes 



i Get back original line # 
iReselect original line 



I 

€ 
f 
I 
f 
I 
f 

i 

€ 
€ 

i 

i 

c 

i 

i 
< 
t 

4 

4 
1 
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006346 
006350 
006352 
006354 



006360 
006362 
006366 
006372 
006374 
006376 
006402 
006404 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
c8 

29 006410 

30 006412 

31 006416 

32 006422 

33 006424 

34 006430 
35 

36 
37 

38 006434 

39 006440 

40 006462 

41 006464 

42 006466 

43 006502 
44 

45 
46 

47 006504 

48 006506 

49 006512 

50 006514 

51 006516 

52 006520 



010346 
010446 
010546 
016246 OOOOOOG 



010400 
004737 
004737 
010003 
010500 
004737 
010300 
004737 



010400 
004737 
016204 
010500 
004737 
016205 



012600 
004737 
01260f.i 
012604 
012603 
000207 



006702' 
006612' 



006702 ' 



006702 ' 
OOOOOOG 

006702 ' 
OOOOOOG 



016200 OOOOOOG 

1 1 2425 
11 242 'J 

077022 



006702 



. SBTTL CPYLIisi 



Copy characters from one line to another 



Copy the characters and attributes from one line to another. 
The line attribute is al&o copied. 



I n p u t c : 

R2 = Pointer to window control block 

R4 = Number of line to ropy from 

R5 = Number of line to copy to 



CPYLIN: MOV 
MOV 
MOV 
MOV 



R3. -<SP) 
R4, ~(SP) 
R5, -(SP) 
DW$LIN(R2)> -<SP)i Save current line number 



Copy the line attribute byte 



MOV 


R4,R0 


CALL 


SETLIN 


CALL 


GETLAB 


MOV 


RO, R3 


MOV 


R5, RO 


CALL 


SETLIN 


MOV 


R3, RO 


CALL 


SETLAB 



Get source line # 

Set up info about that line 

Get line attribute information 

Save line attribute 

Get dest line # 

Set up info about that line 

Get line attribute byte 

Set line attribute byte 



<to RO) 



Get pointers to characters in from and to lines 



MOV 


R4, RO 


i Get 


CALL 


SETLIN 


; Set 


MOV 


DW$LPT(R2).R4 


iGet 


MOV 


R5, RO 


; Get 


CALL 


SETLIN 


iSet 


MOV 


DW*LPTCR2),R5 


; Get 



# of line we are copying from 
up information about the line 
pointer to 1st char in from line 

# of line we are copying to 
up information about the line 

; Get pointer to 1st char in to line 



Begin loop to copy tht? characters 



1«: 



MOV 


DW*CPL(R2), 


BUFMAP 




MOVE 


<R4)+, (R5)t- 


MOVB 


(R4)+, <R5)4 


UNMAP 




SOB 


RO. 1* 


Fini shed 




MOV 


(SP)+, RO 


CALL 


SETLIN 


MOV 


<SP)+, R5 


MOV 


<SP)+,R4 


MOV 


(SP)+, R3 


RETURN 





; Get # columns to copy 

.! i ; Map to screen buffer 

i ; i Copy character 

i i i Copy attribute 

; Restore mapping 

; Loop to copy all chars 



in the line 



j Get back original line # 
jReselect that line 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 



010346 



006524 016203 0000000 

006530 166203 0000000 

006534 002002 

006536 066203 OOOOOOG 

006542 062703 OOOOOOG 



006546 

006570 110013 

006572 



006606 012603 
006610 000207 



. SBTTL SETLAB — Set ettributes for current line 

; SETLAB is called to set the line attribute byte for the current line. 

> Inputs: 

j RO = Line attribute byte value 

; F^2 ~ Pointer to window control block 

J 

SE TL AB : MOV R 3 , - < SP ) 

J Compute virtual address of byte with attribute for current line 



1$: 



MOV 
SUB 
BOE 
ADD 
ADD 



DW*LIN<R2),R3 
DW*TLN(R2), R3 
1* 

DW*LPP(R2), R3 
#VPAR6, R3 



Store the new attribute byte 



BUFMAP 




MOVB 


RO, <R3) 


UNMAP 




F i VI :i B h e d 




MOV 


(SP)+, R3 


RETURN 





i Get current line number 

; Get offset from line at top of buffer 

; Br if line greater than 1st line 

i Get offset to line we want 

^Add virtual base address 



! i Map to screen buffer 

i i Store new attribute for line 

Restore mapping 



( 
I 
f 
i 
i 
i 

i 

i 

i 
€ 
€ 

i 
i 
€ 
i 

I 

( 
€ 
I 
i 
i 
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GETLAB — Get attributes for current line 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

2? 

23 

24 

25 

26 

27 

28 

29 

30 



00661; 



010346 



006614 016203 OOOOOOG 

006620 166203 OOOOOOG 

006624 002002 

006626 066203 OOOOOOG 

006632 062703 OOOOOOG 



006636 

006660 1 1 1 300 

006662 



006676 012603 
006700 000207 



. SBTTL GETLAB -- Get attributes for current line 

GETLAB is called to get the line attribute byte for the current line. 

I n p u t B : 
R2 = Pointer to ijuindou* control block 

Outputs: 
RO ~ Line attribute byte for current line. 

GETLA.O: MOV R3, -(SP) 

Compute virtual address of byte with attribute for current line 



I 
f 
f 



1*: 



MOV 
SUB 
BGE 
ADD 
ADD 



DW^LIN(R2)> R3 
DW*TLN<RP), R3 
1* 

DW*LPP<R2), R3 
#VPAR6, R3 



Get the attribute byte 



eUFMAP 

MOVE 

liWMAP 



<R3)>R0 



; Get current line number 

; Get offset from line at top of buffer 

> Br if line greater than 1st line 

j Get offset to line u»e want 

; Add virtual base address 



i i i Map to screen buffer 

J j i Get the line attribute byte 

; Restore mapping 



Finished 



MOV 
RETURN 



(SP)+, R3 



TSWIN — 


■ TSX-Pius Displ 


sg Windo 


SETLIN - 

1 
2 
3 


— Selec 


tali 11 fc 


as curr 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 


006702 


010146 




15 








16 








17 








18 


006704 


010062 


000000<5 


19 








20 








21 








22 


006710 


166200 


OOOOOOG 


23 


006714 


002002 




24 


006716 


066200 


OOOOOOG 


25 


006722 


010001 




26 


006724 


070162 


0000000 


27 


006730 


006301 




28 


006732 


066201 


OOOOOOG 


29 


006736 


062701 


OOOOOOG 


30 


006742 


010162 


OOOOOOG 


31 








32 








33 








34 


006746 


012601 




35 


006750 


000207 
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. SBTTL SETLIN -- Select a line as current- line 

Select a specified line as the current line and set up pointer information 

foe it. 

I n f J u t s : 
F?0 = Line number being selected <l-24) 
R2 = F'ointer to window control block 

Outputs: 
DW*LIM<R2) = Set to current line number 
DW1'LPT(R2) = Virtual address of ist character on current line 

SETLIN: MOV R1,-(SP) 

Set the current line number in WCB 

MOV RO, DW*LIN<R2) ; Set current line number 

Compute virtual address of Ist character in this line 



1$: 



SUB 
BGE 
ADD 
MOV 
MUL 
ASL 
ADD 
ADD 
MOV 

F" i n i B h e d 



MOV 
RETURN 



DW$TLN<R2>,R0 
1* 

DW*LPP<R2), RO 
RO, Rl 

DW*CPL(R2>, Rl 
Rl 

DW*LPP(R2), Rl 
#VPAR6, Rl 
Rl, DW*LPT<R2) 



<SP)+, Rl 



Get # lines from top to line wanted 
Br if top line i s LE one wanted 
Add total number of lines per page 
Get # lines offset to line uie want 
Multiply by number of columns per line 
Times two because of attribute bytes 
Skip over bytes with line attributes 
Add base virtual address 
This is virtual addr of start of line 
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3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



. SBTTL WINSF -- Switch from a job with a display window 

WINBI- is called from TB I i Y ufhen we avB switching from a job which 
has an active display wirutow. 

I n p u t s : 
R2 = Pointer to display window control block for job being switched from 



006752 



WliMSF: 



006752 052762 0000000 OOOOOOG 



006T60 105062 OOOOOOG 



006764 000207 



Set flag which prevents characters from being passed through to tht 

5 c V e e n . 

BIS #AW*DDC» DW*AW<R2); Don 't pass through any more chars 
Reset number of lines scrolled since we disconnected from window 

CLRB DW*NSL(R2) ; No lines scrolled yet 
F i n i B h e d 

RETURN 



c 
f 
i 
i 

i 
( 
i 

i 
i 
i 

€ 
i 

i 

i 
i 
i 
i 
i 
1 
c 
i 



TSWIN - 
WINST ■ 

i 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

27 
28 
29 
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-- Switch to iof.i with a win clow 



. SBTTL WINST 



Switch to job with a mindow 



006766 010146 



006770 116201 0000000 



006774 052761 OOOOOOG OOOOOOG 



007002 026127 OOOOOOG OOOOOOG 

007010 001002 

007012 004737 OOOOOOG 



007016 012601 
007020 000207 



WINST is called from TSITY when we are switching to a job that has 
a display window active. 

Inputs: 
R2 -•• Pointer to current window control block for job being switched to 

WINST: MOV R1,-(SP) 

Get job index number 

MDVB DW*J0B(R2), Rl jGet job index number 

Set flag which will cause the window to be redisplayed when the 
job resumes execution. 

BIS #*WDISP.. LSW6<R1); Set flag saying to redisplay window 

If job is in terminal-output-wait state* restart its execution 

LSTATE<R1.>, #S*OTWTi TT-output-wai t state? 

i Br if not 
i Restart execution of job 



9*: 



CMP 


LSTATE<R 


BNE 


9* 


CALL 


FORCEX 


Finished 




MOV 


(SP)+,R1 


RETURN 





< 
i 
I 
I 
I 



c 
c 
t 
I 

1 
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rent window for job 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 

11 

1 n 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 



0070= 



010246 



007024 
007032 



007040 
007044 
007046 



007052 
007060 
007062 



042761 
052761 



016102 
00 1 402 
004737 



. SBTTL WINDSP 



Redisplay current tuindou; for job 



WINDSP is called from the scheduler when it is about ready to 
reenter a job whose window needs to be redisplayed. 



I n p 1.1 1 s : 
Ri "• Current job index numb err 



WINDSP: MOV 



R2, -<3P) 



Reset flag that says window redisplay needed 

and set flag that says a window refresh is being done. 



0000000 OOOOOOG 
OOOOOOG OOOOOOG 



OOOOOOG 
007064 ' 



BIC 



#*WDISP, L.SW6(R1 )i Window redisplay no longer needed 
#*RFRSH, LSW4(R1 )i Window refresh currently being done 



Redisplay current window for job 



042761 OOOOOOG OOOOOOG 9*: 



000207 



MOV 
BEG 
CALL 

F i n i s h e d 

BIC 
MOV 
RETURN 



LWIND0(R1 )> R2 ; Get addr of current window control block 
9* i Br if job is not doing windowing 

REFRSH J Redisplay window 



#*RFRSH. LSW4<R1 ); Say window refresh is finished 
<SP)+, R2 



TSWIN — TSX-Plus Disp:* 
REF-RSH - — Refreiih scree 
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1 

IZ. 

3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



BBTTL REFRSH 



Refresh screen from windouj contents 



ThiB routine is caile<] to clear the screen and refresh its contents 
from the screen buffer. 



Inputs: 
f?2 " Pointer to window control block 



007064 010146 
007066 010546 



REFRSH: MOV 
MOV 



R 1 , - < SP ) 
R5, -(SP) 



007070 052762 OOOOOOG 0000000 



007076 
007102 
007110 
007116 
007124 
007132 



116201 0000000 

016161 OOOOOOG OOOOOOG 

016161 OOOOOOG OOOOOOG 

042761 OOOOOOG OOOOOOG 



007 1 40 004737 1 1 1 1 •" 



007144 004737 007612' 



007150 



007154 005005 



011240' 



007156 
007162 
007166 
007170 
007174 
007200 
007202 
007206 



007210 
007212 



016246 
012701 
010100 
004737 
004737 
005201 
020162 
101767 



012600 
004737 



OOOOOOG 
000001 

006702 ' 
007302 ' 

OOOOOOG 



Stop characters from being passed from program to screen while we are 
doinci the refresh 

BIS #AW$DDC> DW*AW<R2)j Suppress character pass-through 

Clear contents of line's output buffer and reset control-0 flag 

MOVB DW*J0B(R2), Rl ; Get job index number 

DISABL ;;.; Disable interrupts 

HDV LDTSIZ{Ri), L0T0PC(R1)J i i Clear contents of line's output buffer 

MOV LOTNXT<Rl),L.OTPNT<Rl)i ; ; 

ENABL ; Enable interrupts 

BIC #*CTRLO, LSW3<Rl)i Reset control-0 flag 

Bee if we need to turn V'f 52 emulation mode on or off 

CALL GENTEM ; Check VT52 emulation mode status 

Clear the screen 

CALL GENCLR i Clear the screen 

Set overall window attributes 

CALL GENWAF ; Set overall window attributes 

Initialize character attribute flags 

CLR R5 i No character attribute flags 

Begin loop to send each line to the screen 

Save current line number 
Get 1st line number 
Get line number 
Select as current line 
Send line to screen 
Increment line number 
Have we done all lines? 
Loop if not 

Retet line number 



MOV 


DW*LIN<R2), -<SP) 


MOV 


#1) Rl 


MOV 


Rl, RO 


CALL 


SETLIN 


CALL 


SNDLIN 


INC 


Rl 


CMP 


Rl. DmLPPimn 


BLOS 


1* 



006702 



MOV 
CALL 



<SP)+, RO 
SETLIN 



jGet back line where we should be 
i Set this as the current line 



TSWIN ■• 
REFRSH 
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I 

c 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
S3 
84 
85 
86 
87 
88 
89 



007216 004737 010746' 



007222 004737 012104' 

007226 016200 OOOOOOG 

007232 005300 

007234 116201 OOOOOOG 

007240 110061 OOOOOOG 



007244 120562 OOOOOOG 

007250 001404 

007252 1 1 6200 OOOOOOG 

007256 004737 010122' 



007262 004737 010534' 



007266 042762 OOOOOOG OOOOOOG 



007274 0.!260;} 
007276 012601 
007300 000207 



CALL 


GENCSR 


MOV 


DW*C0L<R2), RO 


DEC 


RO 


MDVB 


DW*J0B<R2),R1 


MOVE 


RO, LCOL(Rl) 



Set up Ecrolling region status 

CALL GENSSS i Set up split screen scrolling 

Piatt' cursor where it should be 

; Gen cursor positioning commands 

; Get current column number 

;Make 1st column be 

:• Get our job number 

J Tell TSTTY where cursor is 

Make sure character attribute is set correctly 

; Is character attribute set correctly? 

; Br if yes 

i Get needed character attribute 

iSet character attribute 

Set up correct character set mapping 

2$: CALL GENMAP ; Set up correct character set mapping 

Now allow characters to be passed to the screen 

BIC #AW*DDC, DW*AW(R2); Enable character pass-through 

F • i n i s h e d 

71^; 



CMPB 


R5, DW*CCA(R2) 


3:!E0 


2* 


MOVE 


DW*CCA(R2),R0 


CALL 


GENCAF 



MOV 
MOV 
RETURN 



(SP)+, R5 
< SP ) +, R 1 



TBWIN — 
SNDLIN • 

1 
2 
3 
4 



7 

8 
9 

io 
u 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
33 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSX-F'luG Disp} 
- Send line of- 
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SBTTL SNDLIN 



St-nd line of characters to terminal 



Send a line of characters from the screen buffer to the terminal. 
The currently selected line is the one sent. 

1 n p u t s : 
F'}2 - Pointer to ujindotu control block. 
R5 -- Current character attribute flags 

Outputs: 
R5 = Character attribute flags for last character on line 



007302 
007304 
007306 
007310 



007314 
007320 
007324 
007332 
007334 
007340 
007344 
007346 
007350 



007354 
007360 
007362 
007366 



007370 
007374 
007400 



007404 
007426 
007430 
007432 
007446 
007452 
007454 
007456 
007460 
007464 



010146 
010346 
010446 
016246 



004737 
012701 
032762 
00 1 402 
012701 
132700 
001401 
006201 
004737 



020162 
1 1 402 
016201 
010146 



012701 
010162 
016203 



OOOOOOG 



006612' 

000120 

OOOOOOG 

000204 
OOOOOOC 



011622' 

OOOOOOG 
OOOOOOG 



SNDL.TN: MOV 
MOV 
MOV 
MOV 



R 1 . - < SP ) 
R3, -(DP) 
R4, --<SP) 
DW$C0L<R2) . ~<GP); Save current column number 



OOOOOOG 



Set line attribute flag and determine number of columns to display 

CALL GETLAB i Get line attribute flags for cur line to RO 

MOV #80. »R1 ^Assume 80 columns to display 

BIT #AW«132> DW*AW<R2); Are we in 132 column mode? 

BEQ 1* ; Br if not in 132 col mode 

MOV #132. , Rl ; Say we need to display 132 columns 

1*: BITB #<AL*DHT ! ALIiDHB ! AL*DWD>, RO ; Double wide line? 

BEQ 3$ ;Brifnotdoubleujide 

ASR Rl iOnly need to display half as many chars 

3*: CALL GENLAF ; Generate line attribute flag info 

Store number of columns to display on top of stack 



5*: 



CMP 
BLOS 
MOV 
MOV 



Rl, DW*CPL <R2) i Are we storing as many cols as needed? 

5* ; Br if yes 

DW$CPL(R2) , Rl i Get # columns we are storing 

R1,~<SP) i Store # columns to display on top of stack 



Begin loop to output the characters on the line 



000001 

OOOOOOG 

OOOOOOG 



MOV 
MOV 
MOV 



#1, Rl jlnit column number 

Rl, DW*C0L<R2) ilnit col where next character goes 

DW*LPT<R2) , R3 i Get pointer to 1st char on this line 



4'$: 



1 .f 2304 
112300 

120427 
001005 
120005 

001003 
032700 
00 i 420 



000040 



OOOOOOC 



Scan over spaces that have no attributes set 

i i Map to screen buffer 
i i Get character 

i i Qet attribute flags for character 
Restore mapping 
Is character a space? 
Br if not 

Are attributes changing? 
Br if yes 
#<AC$BLD! AC*BLK!AC*REV! AC*ULN>, RO )Bold, blink, reverse, under 

j Br if not 

We found a character that we need to send. 
(R4 =•-• character, RO = attribute flags) 



BUFMAP 




MOVB 


<R3)+, R4 


MOVE 


(R3)+, RO 


UNMAP 




CMPB 


R4, #40 


BNE 


2* 


CMPB 


RO, R5 


BNE 


2* 


BIT 


#<AC$BLD 


BE« 


8* 



TBWIN — TSX-PluB Disp3 
SNDLIN ~ Send line of 



ay Windo HACRO V05. 04 Honilay 21-Dec-S7 07: 4t> Page 68-1 
characters to terminal 



58 
59 
60 
61 
62 
cj3 
64 
65 

67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 



Position to correct column f-or the character. 



007466 
007472 
007474 
007476 
007502 



007504 
007506 
007510 



007514 
007516 
007522 



007526 
007530 
007532 



007534 
007542 
007544 
007552 
007554 
007564 



007574 
007576 
007602 
007604 
007606 
007610 



0000000 



011736' 



010122' 



020162 
00 1 404 
010046 
004737 
1 2600 



120005 
001402 
004737 



010400 
004737 
005262 



005201 
020116 
101724 



026262 0000000 OOOOOOG 

001414 

026227 OOOOOOG 000001 

00 1 404 



012314' 
OOOOOOG 



2*: 



ChP 


Rli DW$C0L(R2) 


BEQ 


6* 


MOV 


RO, -<SP) 


CALL 


GENSPC 


MOV 


<SP)+, RO 



; Are we at correct column now? 

i Br if yes 

j Save character attribute flags 

.: Generate spaces to move to correct col 

^Restore character attribute flags 



See if we need to chanpe attributes for this character 



6*: 



CMPB 


RO, R5 


BEQ 


7* 


CALL 


GENCAF 



; Do we need to change attributes? 

j Br if not 

i Set character attribute flags 



Send the character to the terminal 



7«: MOV R4, RO 
CALL GENCHR 
INC DW*C0L<R2> 



Advance to next character 



8*: 



IMC 
CMP 
BLOS 



Rl 

Rl, (SP) 

4* 



.; Get character to send 

i Send the character to the terminal 

J Increment current column number 



Increment column number 
Done all columns? 
Loop if not 



Output carriage-return line-feed at the end of the line 



005726 
012662 
012604 
012603 
012601 
000207 



CMP 
BEQ 
CMP 
BEG 
SEND 



10* 



SEND 
F i n i B h e d 



?0*: 



OOOOOOG 



TST 
MOV 
MOV 
MOV 
MOV 
RETURN 



DW$LIN(R2)- DW*LPP<R2); Is this the last line on the page? 

Br if yes — Don't send CR-LF 
Are we still at col 1 (entire line blank)? 

Br if yes 

Send carriage return 

Send line feed 



20* 

DW*C0L<R2), ¥,l 

10* 

#CR 

#LF 



(SP)+ i Pop number of columns per line 

<SP)+, DW*COL(RP>; Restore cursor column number 
<SP)+, R4 
(SP)+, R3 
<SP)+, Rl 



TSWIN ■ 
GhNCLR 



TSX-Pl 
- Gen r 



u s D i s p } 

o rt t r o 1 ;: 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

i'3 

16 

17 

IS 

19 

20 

22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

48 
49 

50 
51 
52 

1='") 

54 
55 
56 
57 



007612 



007612 
007620 



032762 
00 1 1 1 :,) 



007622 
007626 



007636 
007642 
007652 
007662 



007672 
007676 
007706 
007712 



007722 
007726 
007736 



007746 
007756 
007762 

007772 



010002 
010010 
010012 
1 00 1 6 
010026 
010032 
010042 
010052 



004737 
004737 



004737 



032762 
001443 
004737 
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. SDTTL GENCLR — <veTi control sequence to clear screen 

Generate the appropriate terminal control sequence to clear the screen. 

Input B : 
R2 = Pointer to window control block 

GENCUi : 

See if we need to generate a VTIOO or VT52 sequence 



OOOOOOC OOOOOOG 



004737 012272^ 



004737 012272' 



012272-' 
012272' 



012272' 



004737 012260' 



OOOOOOG OOOOOOG 
012260' 

004737 012260' 



BIT 
,BNE 



#<AW*52 ! AW-|iS52>, DW*AW < R2 ) i VT52? 



1* 



Generate VTIOO sequence 
Reset Ecroiling region 



CALL 
SEND 



GENCSI 



Set ab BO lute origin 



CALL 
SEND 
SEND 
SEND 



GENCST 
#'? 
#'6 
#'1 



; Br if yes 



; Generate CSI header 
.1 Reset scrolling region 



; Generate CSI header 
; Send "? 
; Send 6 
; Send 1 



Home cursor and clear to end of screen 



CALL 

SEND 

CALL 
ct:Kin 



GENCSI 
#'H 
GENCSI 
#'J 



Reset character attributet 



CALL 
SEND 
SEND 



GENCSI 

#'0 

#'!n 



Generate CSI header 

Send H — Home cursor 

Generate CSI header 

Send J — Clear to end of screen 



i Send CSI O m to reset char attributes 



Hap GL to GO and designatff GO as ascii 



SEND 
CALL 
SEND 
SEND 



#17 

GENESC 
#'< 
#'B 



; Send shift-in — 
i Send escape 
; Select GO 
; Nap GO to asc ii 



Lock shift 00 to GL 



Map GR to G2 and designate G2 as ascii 



00042;;:' 



BIT 

BE« 

CALL 

SEND 

CALL 

SEND 

SEND 

BR 



#AW$200. DW*AW<R2); Is this a VT200 terminal?' 



9* 

GENESC 

#'> 

GENESC 

#'B 

9* 



Br if not — Don't have to mess with GR 

Send ESC 

Lock shift GR to G2 
Send escape 
Select G2 
Designate ascii 
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58 








59 








60 








61 


010054 


004737 


012260' 


62 


010060 






63 


010070 


004737 


012260' 


64 


010074 






65 


010104 


004737 


012260' 


66 


010110 






67 








6S 








69 








70 


010120 


000207 





Serif rate VT52 sequence 



1*: 



9$: 



CALL 


GENESC 


SEND 


#'H 


CALL 


GENESC 


SEND 


#'J 


CALL 


GENESC 


SEND 


#'G 


F i Hi ;i B 1) e d 




RETURN 





Generate ESC character 
Send H — Home cursor 
Generate ESC character 
Send J — Clear to end 
Generate ESC character 
Select ascii character 



of screen 

set 



TSWIN ■ 
GENCAF 
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3 
4 
5 
6 
7 
8 
9 
10 
.1.1 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
2S 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4B 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SDTTL GENCAF — Generate sequence to set character attributes 

Generate the terminal sequence to set character attributes. 

1 n p u t F> : 
RO ~ Character attribute wanted 
R'ri - fainter to window control block 
H5 =-- Current character attribute 

Outputs: 
Rb ~ Mew character attributes 



010122 
010124 
010126 
010130 



0101^6 
010346 
010446 
010001 



GENCAF: h10V 
MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R3, ~(BP) 
R4, -(QP) 
RO, Rl 



010132 004737 010354' 



010136 

010144 



010146 
010150 
010152 
010156 
010162 
010164 



010166 

010172 



010202 
010206 
010210 
010220 



010230 
010234 
010236 
010246 



032762 OOOOOOC OOOOOOG 
001076 



010103 
010504 

042703 OOOOOOC 

042704 OOOOOOC 
020304 

00 1 466 



004737 012272' 



i Carry new attributes in Rl 

See if we need to change character sets 

CALL GENCSC i See if we need to do character set change 

Don't have to worry about attributes if this is a VT52 

BIT #<AW*52iAW*S52>, DW$AW(R2)i Is this a VT52? 
BNE 9* .: Br if yes 

See if character attributes have changed 



MOV 

mlh; 

BIC 
BIC 
CMP 
BEQ 



RliR3 iGet new attributes 

R5, R4 iGet current attributes 

#'-C<AC*BLD ! AC^BLK ! AC*REV ! AC*ULN>, R3 

#X<AC*BLD i AC*BLK ) AC*REV ! AC*ULN>, R4 

R3> R4 j Have attributes changed? 

9* i Br if not 



Initialize control sequejice and turn off all attributes 



CALL 
SEND 



GENCSI 

#'0 



Bee if bold is wanted 



032701 OOOOOOG 
001410 



B I T 


#AC*BLD.. Rl 


BEQ 


1* 


SEND 


#SEMI 


SEND 


#'1 



i Send CSI 
i Send 



Is bold wanted? 
Br if not 
Send 'i 1 ' 



See if underscore is loani-pd 



032701 OOOOOOG 
00 1 4 1 



1$: 



B 1 T 


#AC*ULN, Rl 


J Underline wanted? 


BEQ 


2* 


; Br if not 


SEND 


#SEMI 


;Send "; 4" 


SEND 


#'4 





010256 032701 OOOOOOG 



; See if blinking is wanted 
2f: BIT #AC$BLK.. Rl 



; Blinking wanted?" 



i 
i 
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GENCAF — Genf?7'at6? sequence to B£?t character attributes 

58 010262 00141';) BEQ 3* ; Br if not 

59 010264 SEND #SEf1I ; Send " ; b" 



BEQ 


3* 


SEND 


#SEf1I 


SEND 


#'5 



BIT 


#AC$REV, Rl 


j Reverse video wanted? 


BE« 


7* 


J Br if not 


SEND 


#SEMI 


.iSend "i7" 


SEND 


#'7 





60 010274 

61 i 

62 > See if reverse video is wanted 

63 i 

64 010304 032701 0000000 3^: 

65 010310 001410 

66 010312 

67 010322 

68 ; 

69 i Terminate the strinq by seeding "m" 

70 ; 

71 010335 7^S; SEND #'ffl j Send "m" 
72 
73 
74 

75 010342 OlOiOri 9«: MOV R1,R5 ; Change current attributes to new attributes 

76 010344 012604 

77 010346 012603 

78 010350 012601 

79 010352 000207 



'/i^: SEND 


# 'ffl 


i F i x) i n h <:> d 




> 

9«: MOV 


Rl, R5 


MOV 


(SF)+. R4 


MOV 


(SP)+. R3 


MOV 


<SP>+, Rl 


RETURN 





TSWIN — 
GENCSC - 

1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 
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- Generate terminal sequence to select char set 



41'! Pbqb 71 



110354 
110356 



O: 

0: 
010360 

o: 
o; 



> 10362 
* 1 0364 



16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 

28 

29 
30 
31 
32 
33 

34 

35 

36 

37 

38 

39 

40 

41 

42 
43 
44 
45 
46 

47 

48 
49 
50 
51 

52 

53 

54 

55 

56 
57 



10366 
10370 
1 0374 
10376 
10402 
10-104 



10406 
10414 



10416 
1 0423 
10432 
10442 
10450 
10452 
10456 
10466 
10476 



10500 
10504 



10514 
10516 
10520 
10522 
10524 



010046 
010146 
010346 
010446 
010001 



oioio;j 

042703 
010504 
042704 
020304 
00 1 443 



032762 

001031 



032762 
001421 
004737 



000406 



1 2604 
012603 
012601 
012600 
000207 



. SBTTL GENCSC — Gpnerate terminal sequence to select char set 

Generr3te terminal control sfjquence to select the correct character 
set /-or the next character. 

I n f > u t r> : 

RO - Character attribute wented 

F?2 ~ Pointer to window control blocii 

R5 ~ Current character attribute 



GENCSC: MOV 
MOV 
MOV 
MOV 
MOV 



RO. -<'3P) 
R 1 , - < SP ) 
R3, -CBP) 
R4. -<HP) 
RO. R 1 



.; Carry new attributes in Rl 
Determine if character t>ct has changed 



OOOOOOC 
OOOOOOC 



MOV 
BIC 
MOV 
BIC 
CMP 
BtIG 



R1,R3 ;Get new attributes 

#-"C<AC$SET>, R3 ; Select character set number only 

R5, R4 ; Get current attributes 

#-"C<AC$SET>. R4 i Select character set number only 

R3.. R4 iHas character set changed^' 

9$ .; Br if char set has not changed 



OOOOOOC OOOOOOG 



Character set has changed 

BIT #CAW*52iAWiiS52>, DW*AW<R2>i Is this a VT52 terminal? 

BNE 1* iBr if VT52 

VT100/VT200 terminal. 

Generate sequence to map GO and G2 to correct character set 



004737 012260' 



OOOOOOG OOOOOOG 
012260' 



CALL 

SEND 

SEND 

BIT 

BEG 

CALL 

SE 

BEt 

BR 



SEND 



GENESC ; Send ESC character 

#'( ; Select GO 

SET200<R3) ; Send char to map GO to correct char set 

#AW*200.. DW^j!AWa<2)i Is this a VT200 terminal? 

9* j Br if not — Don't need to change G2 

GENESC .; Send ESC character 

#'* ; Select G2 

SET200(R3) j Send char to map G2 to correct char set 

9* 



VT5P terminal. 

Select ascii or graphics character set. 



00473'-' 012260' 



5: CALL 
SEND 

Finished 

9*; MOV 
MOV 
MOV 
MOV 
RETURN 



GENESC 
SET52<R3.) 



(SP)+>R4 
<SP)+-, R3 
(SP)+, Rl 
<SP)+, RO 



J Send ESC character 

iSelect ascii or graphics characters 



i 
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GENCSC — Generate terminal se?quenc:e to select char sE?t 

i Characters to be sent to chenge GO character set designation 

074 J 01 SET200: .ASCII /B<AO/ 

) Characters to select asc i i or graph ic s mode on a VT52 

106 3ET52: .ASCII /OF/ 

. EVEN 



58 






59 






60 


010526 


lOP 




010531 


060 


61 






62 






63 






64 


010532 


107 


65 







TSWIN - 
GENMAP 



- TSX-Plu'.^ DispiciU Windo MACRO VOS. 04 Monday 21-Dec~B7 07: 41' pB(5t' 
■-- Generate setji.'ence to set up char set mapping 






1 

2 

3 

4 

5 

6 

'? 

8 

9 

10 

11 

12 

13 

14 

IS 

16 

17 

18 

19 

20 

22 

23 

24 

2? 

2c 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



. SBTTL. GENMAP ■ — Generate sequence to set up char set mapping 

; Generate control sequencp to set up the correct character set 
i mapping for GL. GR, GO. Gl» G2. and G3. 

; Inputs: 

.; R2 ~ Pointer to window control block 



010534 010346 GENMAP: MOV 

010536 032762 OOOOOOC 0000000 BIT 

010544 001060 BNE 



R3. -<SP> 

#<AW*52!AW^352>, DW*AW(R2); Is this a VT52 terminal? 

5* ; Br if VT52 



This is a VT100/VT200 tevmirial. 
Set up mapping for GL. 



010546 
010552 
010556 
010560 
010564 



010574 
1 0602 
010604 
010610 
010614 



010624 
010630 
010636 
010640 
010644 
010650 
010660 
010662 
010664 
010670 
010700 
010702 
010704 



010706 
010712 
010716 



010726 
010730 



1. 1 6203 
120327 
101402 
004737 



OOOOOOG 
00000 1 

012260' 



1*: 



MOVB 


DW*GLM(R2), R3 


CMPB 


R3. #1 


BLOS 


1* 


CALL 


GENESC 


SEND 


LSLCHR(R3) 



J Get mapping for GL 

i Mapping to GO or Gl? 

j Br if ues 

; Send ESC 

; Send correct lock shift character 



Set up mapping for GR 



00 1 4 1 
1 1 6203 
004737 



OOOOOOG OOOOOOG 

OOOOOOG 
012260' 



BIT 
BEO 
MOVB 

SEND 



#AUI*200, DW*AW<R2); Is this a VT200? 



2$ 

DW$GRM<R2>, R3 
GENESC 
LSRCHR<R3) 



i Br if not - — Don't need to mess with GR 

; Get mapping for GR 

; Send ESC 

; Send correct lock shift character 



Bet up mapping for GO.- Gl, G2> and G3 



012703 
032762 
00 1 402 
012703 
004737 

010300 
060200 
116000 

005303 
002360 
000410 



004737 
1 1 6203 



000001 
OOOOOOG 

000003 
012260' 



OOOOOOG 



OOOOOOG 



2*: 



3-$: 



MOV 


#i,R3 


BIT 


#AW$200, DW-^AW 


BEQ 


3« 


MOV 


#3, R3 


CALL 


GENESC 


SEND 


GNMCHR(R3) 


MOV 


R3, RO 


ADD 


R2. RO 


MOVB 


DW*GOM<RO), RO 


SEND 


SET200(R0) 


DEC 


R3 


BGE 


3* 


BR 


9* 



j Assume we only need to map GO and Gl 
!)> Is this a VT200? 

Br if not 

Map G2 and G3 too 

Send ESC 

Select G# 

Get G number 

Point into window control block 

Get mapping wanted for G# 

Set mapping for the G# 

Have more G# to do? 

Loop if yes 



€ 
€ 



Set up mapping for a V"f 52 terminal 



012260' 
OOOOOOG 



»'!> 



01260;i 
000207 



9f^: 



CALL 


GENESC 




MOVB 


DW$G0M<R2), 


R3 


SEND 


SET52<R3) 




F i n i G h e 1 1 






MOV 


(SP)+, R3 




RETURN 







.; Generate ESC character 

i Get asc i i/graphic s mapping code 

.: Select correct mapping 



Characters used to lock i:.h:ift a mapping into GL 
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GENMAP — Generate sequence to set up char set mapping 

016 .tlv6 LSLCHR: .ASCII <;i7><16;>/n{./ 

; Charac ters used to lock shift a mapp ing into OR 
176 175 LSRCHR: .ASCII /?'^> ! / 

f 

t C harac ters used to se.! eci QO.^ CI . G2> or G3 for mapping 
051 052 GNMCHR: .ASCII ./<)•«•+./ 

. EVEN 



58 






59 


010732 


017 




010735 


1 57 


60 






61 






62 






63 


010736 


077 




010741 


1 74 


64 






65 






66 






67 


010742 


050 




010745 


osn 


68 







TSWIN - 
GENSSS 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 



TSX-PluB Disp.lay Windo 
- Generate sequence for 



032762 
001054 



010746 



010746 
010754 



010756 
010764 

J 0766 
010774 



010776 
011002 
011006 
011012 
011022 
011026 
011032 



011042 
011050 
011052 
011056 
Oil 066 
011076 



011106 000207 
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5p3.it screen Gt rolling 

. SBTTL GENSSS — Generate sequence for split screen scrolling 

Generate the terminal control sequence needed to set the terminal to 
split screen scrollinct mode if that is needed. 

I n p 1.1 1 B : 
R'rl = Pointer to window control block 

GENSSf:.;: 

We never set split screen scrolling for VT52 terminals 



OOOOOOC OOOOOOG 



001004 
026262 
00 1 444 



004737 
016200 
004737 

016200 
004737 



OOOOOOG 
OOOOOOG 



000001 
OOOOOOG 



012272' 
OOOOOOG 
012334' 

OOOOOOG 
012334' 



'*; 



B.1T #<AW*52!AW*S52>, DW*AW(R2)i Is this a VT52? 
BNE 9* i Br if yes 

See if see need to set split screen scrolling 

CMP DW*SRT<R2), #1 ;Is top line of scrolling region 1? 

BNE 2* .: Br if not 

CMP DW*SRB<R2), DW'*LPP(R2>i Is bottom scroll line bottom of page? 

BEQ 9« ; Br if yes 

Declare scrolling rep ion 

i Generate CSI character 

> Get top line # of scrolling region 

; Cvt to ascii digits and send them 

■> Send semicolon 

jGet bottom line of scrolling region 

> Cvt to ascii digits and send them 

> Terminate control sequence 

See if we need to set relative origin mode 



CALL 


GENCSI 


MOV 


DW*SRT<R2), liO 


CALL 


GENVAL 


SEND 


#SEMI 


MOV 


DW*SRB < R2 ) , RO 


CALL 


GENVAL 


SEND 


#'r 



032762 OOOOOOG OOOOOOG 

00 1 4 1 6 

004737 012272' 



B I T 
BEQ 
CALL 
SEND 
END 



R 



9* 



SEND 
F i n i s bed 

RETURN 



#AW$ORS» DW*AW<R2)i Is origin to be relative to scroll region? 

9* ; Br if not 

GENCSI ; Generate CSI character 

#'? iSend ? 

# '6 > Send 6 

#'h jSend h 
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GENTEM — Turn VT52 emulation mode on or off 



1 
2 
3 
4 



8 
9 
10 
il 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 



. SBTTL GENTEM -- ■fufn VT52 emulation mode on or off 

Generate the terminal control sequence to turn VT52 emulation mode 
on or off as needed by this ujindoiu. 

I n p Li t [i : 
RL' ■-- Pointer to window control block 



See if we need to go into VT52 emulation mode 



Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 
Oil 



110 
114 
120 
126 
130 
136 
140 
146 
152 
162 
172 



011204 
011212 
011214 



116200 
1 1 6000 

032762 
00 1 426 
032760 
001037 
052760 
004737 



0004 r 



032760 
00141.1 
042760 
004737 



0000000 
OOOOOOG 
0000000 OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 
012272' 



GENTEM: MOVE 
MOVE 
BIT 
BEQ 
BIT 
BNE 
BIS 
CALL 
SEND 
SEND 
SEND 
BR 



DW*J0B(R2), RO .:Get our job index number 

LNPRIM<RO)^ RO i Get our primary line index number 

#AW*S52, DW*AW<R2) ; Does window want VT52 emulation mode? 

2* i Br if not 

#*V52EM, LSWiKRO); Is VT52 emulation mode on now? 

9* } Br if yes 

#*V52EM, LSWll<RO)i Say we are turning on VT52 emulation 

GENCSI .: Send CSI character 

#'? ;Send "?21" to reset ANSI mode 

#'2 

#'i 

9* 



See if we need to turn <iff VI 52 emulation mode 



OOOOOOG OOOOOOG 2*: 



OOOOOOG OOOOOOG 
012260' 



BIT 

BEQ 

BIC 

CALL 

SEND 



#*V52EM, LSWIKRO); Is VT52 emulation mode on now? 

9* i Br if not 

#*V52EM, LSWJKRO); Say we are turning off VT52 emulation 

GENESC i Send ESC 

#'< iTell VT52 to enter ANSI mode 



011236 000207 



F i n i B h e d 
9«: RETURN 



TSWIN — 
GENWAF - 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
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- Generate terminal sequence to set mindou) attrib 



011240 010346 
011242 010446 



011244 016203 OOOOOOG 



011250 005103 

011252 012704 000154 

011256 004737 011350' 

1 1 262 004737 011412' 



011266 005103 

011270 012704 000150 

011274 004737 011350' 

011300 004737 011412' 



1 1 304 004737 1 2260 ' 

011310 032762 0000000 OOOOOOG 

011316 001401? 

011320 

011330 000404 

011332 



011342 012604 
011344 01260^i 
011346 000207 



. SBTTL. GENWAF — Generate terminal sequence to set windouj attrib 

Generate the terminal control sequence needed to set attributes for 
the entire window. 

Inputs: 
R2 = Pointer to window control block 



GENWAF: MOV 
MOV 



R3, •-<SP) 
R4> -diP) 



Get control flags for the window attributes 

MOV DW$AW<R2),R3 ; Get window attribute flags 

Generate control sequence to reset some flags 

J Set flags that should be reset 
/Terminate string with lower-case L 
/Generate for ANSI attributes 
i Generate for DEC attributes 

Generate control sequence to set some flags 

i Set flags that should be set 
/Terminate string with iowei — case H 
/Generate for ANSI attributes 
/ Generate for DEC attributes 

See if we should set or reset application keypad mode 



COM 


R3 


MOV 


#'1/ H4 


CALL 


GENAAS 


CALL 


GENDAB 



COM 


R3 


MOV 


#'h/R4 


CALL 


GENAAS 


CALL 


GENDAS 



CALL 

BIT 

BEG 

SEND 

BR 



1*: 



SEND 

Finished 

MOV 
MOV 
RETURN 



GENESC / Send escape 

#AW*AKM/ DW*AW<R2)/ Is application keypad mode wanted? 

1* ; Br if not 

#'= ; Send equal sign 

9« 

#'> /Send greater-than sign 



(SP)+/ R4 
<SP)+/ R3 



TSWIN - 
GENAAS 
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— Generate contTol sequence for ANSI attributes 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 011410 000207 



011350 



011350 032762 OOOOOOC OOOOOOG 
011356 001014 



011360 032703 OOOOOOG 

011364 001411 

011366 004737 012272' 

011372 

011402 



. SBTTL GENAAS — Gt-nerate control sequence for ANSI attributes 

Genpratfi the control sequence to set or reset ANSI attribute flags. 

I n p u t B : 
R2 = Pointer to uiindouj control block 
R3 ~ Word with flaga 
R4 = Character to terminate string with 

GENAAS: 

Don't send anything if this is a VT52 

BIT #<AW«52!AWi:S52>, DW*AW(R2)J Is this a VT52? 
BWE 9$ ; Br if yes 



See if insert mode is luanted 



9f : 



BIT 


#AW*INS, R3 


BEG 


9* 


CALL 


GENCSI 


SEND 


#'4 


SEND 


R4 


Fivii shed 




RETURN 





j Insert mode wanted? 

; B r if not 

; Send CSI character 

; Send 4 

i Terminate string 



TBWIN — 
GENDAS - 



3 

4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
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• Generate control sequence for DEC attributes 



. SDTTL GENDAB ~— Generate control sequence for DEC attributes 

Generate a terminal control sequence to set or reset DEC attributes. 

Inputs: 
R2 = Pointer to window control block 
R'3 - AW$xxx attributj? IMags 
R4 = Character to terminate strinq with 



011412 010146 
011414 010346 
011416 010546 



011420 032762 OOOOOOC OOOOOOG 
011426 001056 



GENDAS: MOV 
MOV 
MOV 



Rl, -(SP) 
R3, -(SP) 
R5, -<SP) 



011430 032762 OOOOOOG OOOOOOG 

011436 001002 

011440 042703 OOOOOOG 



011444 00500;7 



32 011446 012701 011574' 

33 

34 

35 

36 

37 

38 

39 

40 

41 



We don't have to set any DEC private attributes for VT52 terminals. 

BIT #<AW*52iAW*liS52>, DW*AW<R2)j Is this a VT52? 
BNE 9* iBr if VT52 

VT100/VT200 

If this is a VTIOO, clear VT200-only attribute flags. 

BIT #AW*200> DWt.AW<R2)i Is this a VT200? 

BNE 5* ; Br i f VT200 

BIC #AW«VCR>R3 i Clear VT200~only flags 

Init flag that says string hasn't been initiated yet 

>$: CLR R5 i Nothing sent yet 

Begin loop to decide what values need to be sent 

MOV #DECAT. Rl ; Point to attribute table 

See if next attribute needs to be selected 



011452 036103 000002 
011456 001431 



1*: 



BIT 
BEQ 



2(R1 ), R3 
4* 



ils this attribute needed? 
.: Br if not 



43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



011460 005705 

011462 001010 

1 1 464 004737 1 2272 ' 

011470 

011500 005205 

011502 000404 

011504 



011514 011100 

011516 004737 012334 



011522 032762 OOOOOOG OOOOOOG 



We need to select this attribute* see if we need to send 

CSI to start the string or semicolon to separate parameter values 

i Have we initiated the string? 

i Br if yes 

.: Send CSI character 

i Send question mark 

iFJemember string started 

j Send semicolon 

Now send the parameter value to selete the attribute 





TST 


R5 




BNE 


2* 




CALL 


GENCSI 




SEND 


#'? 




INC 


R5 




BR 


3* 


2*: 


SEND 


#SEMI 



3^: 



MOV 
CALL 



<R1 ), RO 
GENVAL 



j Get parameter value for attribute 

i Convert value to digit string and send 



If this is a VTIOO/ terminate the string for each attribute. 
B I T #AW$200, DW'UAW ( R2 > ; VT200? 



f 
f 
f 
I 
< 
I 
< 
I 

c 
i 
i 
€ 
i 
€ 

i 
i 
I 
4 
I 
< 
i 



i 



TSWIN ~ 
GENDAS 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
7S 
79 
80 
81 
82 
S3 
84 
85 
86 
87 
88 
89 



01 
01 
01 



01 
01 
01 



01 
01 
01 



01 
01 

01 
01 



1530 
1 532 
1 540 



1542 
1546 
1550 



1552 
1554 
1556 



1564 
1566 
1570 
1572 



01 
01 
01 
01 
01 
01 



1574 
1600 
1604 
1610 
1614 
1620 



00 i 004 

00500!) 



062701 
005711 
00 1 340 



O0 570;7 
001403 



012605 
012603 
01 260 J 
000207 



000001 
000003 
000005 
000010 
000031 
000000 



000004 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



BNE 
SEND 



4* 
R4 
R5 



CLR 
See if more attributet need to be selected 



Page '71-1 



; Br if yes 

; Send terminating character 

; Say string is not in progress 



4$: 



ADD 


#4, Rl 


TST 


<R1) 


BNE 


1* 



j Point to next attribute entry 
; Reached end of tableT' 
; I.. o p if not 



If we started the string.- terminate it 



TST 
BEQ 
SEND 

i 

i Finished 

9*: MOV 
MOV 
IMOV 
RETURN 



R5 
9* 
R4 



(SP)+, R5 
(SP)+, R3 
<SP)-+-, Rl 



;Did sue start the string?' 

i Br if not 

.; Send terminating character 



Table of attribute valuer, and DEC attribute flags 



DECAT; 



. WORD 


1. , 


AW*ACK 


. WORD 


3. > 


AW« 1 32 


. WORD 


5. . 


AW*REV 


. WORD 


8. ; 


AW*RPI 


. WORD 


25. 


> AW*VCR 


. WORD 








Application mode for cursor keys 

132 column mode 

F^everse video mode 

Automatic keypad repeat 

Make cursor visible 

End of table 



€ 

i 



TSWIN ■ 
GENLAF 



3 
4 
S 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
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- Generate terminal sequence? to set line attrib 



011622 010546 
011624 OlOOOG 



011626 032705 OOOOOOC 

011632 00142^:; 

011634 004737 012260' 

011640 

011650 032705 OOOOOOG 

011654 001401> 

011656 

011666 000404 

011670 



011700 032705 0000000 

011704 00141;.' 

011706 004737 012260' 

011712 

011722 



011732 012605 
011734 000207 



. SDTTL GENLAF — GrneT^ate terminal sequence to set line attrib 

Generate the terminal control sequence needed to set the line attribute. 

Inputs: 
RO - Line attribute flffgt <AL$x:<x) 



GENLAF: 



MOV 
MOV 



R5, -<SP) 
RO, R5 



; Get attribute flags 



See if double height iuaritt?d 



2*: 



BIT 


#<AL*DHT 


! AL*DHB> 


>R5; Double high wanted T" 


BFQ 


1* 




Br if not 


CALL 


GENESC 




Send ESC 


SEND 


#'# 




Send "#" 


B I T 


#AL«DHT, 


R5 


Top or bottom half of charT' 


BEQ 


2* 




Br if bottom 


SEND 


#'3 




Send 3 


BR 


1* 






SEND 


#'4 




Send 4 



See if double width is wanted 



1«: 



9*: 



B .1 T 


#AL*DWD, R5 


i Is double width wanted? 


BEQ 


9* 


i Br if not 


CALL 


GENESC 


i Send ESC 


SEND 


#'# 


iSend "#" 


SEND 


#'6 


jSend 6 


Finished 






MOV 


<SP)+> R5 




RETURN 
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3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



011736 010346 



011740 010103 

011742 166203 OOOOOOG 

011746 003452 



011750 020327 000005 

011754 003006 

011756 

011766 07730r> 

011770 00044.1 



. SBTTL GENSPC — Generate sequencf? to move cursor over 

Generate spaces or a control sequence to move the cursor right 
from the current cursor position (specified by DW*CDL(R2)> to 
a specified column. 

Inputs: 
F?k' ~ Pointer to window tontrol block 
Rl = Column number lue are to move to 

GENSPC: MOV R3. -(BP) 

Determine hou many columns we want to move over 

J Get destination column 

i Subtract current column number 

i Br if don't need to move at all 

If we need to move no more than 5 columns* output spaces 



MOV 


R1,R3 


SUB 


DW*C0L<R2),R3 


BLE 


9« 



1*: 



CMP 


R3, #5 


BGT 


2* 


SEND 


#40 


SOB 


R3. 1* 


BR 


9* 



011772 032762 OOOOOOC OOOOOOG 2*: 
012000 001012 



012002 004737 012272' 

012006 010300 

012010 004737 012334' 

012014 

012024 000423 



i Need to move more than 5 columns? 

j Br if yes 

; Send a space 

; Loop to send more 

; Finished 



We need to move more than 5 columns; generate control sequence. 
Determine terminal type. 

BIT #<AW*52!AW*S52.>, DW*AW(R2); VT52 terminal? 
BNE 5* .; Br if VT52 



Generate control sequence for VTIOO 



CALL 


GENCSl 


MOV 


R3, RO 


CALL 


GENVAL 


SEND 


#'C 


BR 


9$ 



i Generate CSI header 
> Get # columns we need to move 
j Convert and output that value 
i Terminate control sequence 



Generate control sequence for VT52 



012026 004737 012260' 

012032 

012042 016200 OOOOOOG 

012046 062700 000037 

012052 

012060 010100 

012062 062700 000037 

012066 



012074 010162 OOOOOOG 



5*: 



CALL 


GENESC 


SEND 


#'Y 


MOV 


DW$LIN<R2), RO 


ADD 


#37, RO 


SEND 


RO 


MOV 


R1,R0 


ADD 


#37, RO 


SEND 


RO 



Chanpe current column numben- 
9*; MOV Rl, DW*C0L<H2) 
Fini shed 



Generate escape 

Start of cursor addressing sequence 

Get current line number 

Form ascii char for line number 

Send it 

Get wanted column number 

Form ascii char for column number 

Send it 



J Say we have moved up to this column 
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58 012100 01260;f MOV (SP)+, R3 

59 012102 000207 RETURN 
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i 
f 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 012104 
12 
13 
14 

15 o: 

16 o: 

17 
18 
19 

20 o: 

21 o: 



112104 
112112 



23 
24 
25 
26 
27 

28 

29 

30 

31 

32 

33 
34 
35 
36 

37 

38 

39 

40 
41 
42 

43 

44 
45 
46 
47 
48 



12114 
12120 
12124 
12132 
12134 
12140 
12142 
12144 
12150 
12154 
12164 
12170 
12174 



12206 



012232 

012240 

12244 

12250 



032762 
001035 



004737 
016200 
032762 
001406 
166200 
005200 
003002 
012700 
004737 



004737 



000424 



016200 
062700 

016200 
062700 



SBTTL GENCSR 



Oerjerate cursor addressing sequence 



OOOOOOC OOOOOOG 



Generate the appropriate terminal control sequence to move the 
cursor to the current line and column. 

1 n p u t B : 

Rr.i = Pointer to windou) control block 

DW*LIN<R2) = Current line number 

DW':SC0L<R2) = Current column number 

GENCSR: 

Determine what type of terminal this is 

BIT #<AW*52!AW^S52>, DW$AW<R2)J Is this a VT52? 
BNE 5* ; Br if VT52 



Generate sequence for a VllOO 



I. CL IS. .« es. 



OOOOOOG 
OOOOOOG 

OOOOOOG 



000001 
012334' 

OOOOOOG 
012334' 



OOOOOOG 



1*: 



; Generate CSI character 
i Get line number 
#AW*ORS* DW*AW<R2); Is origin relative to scroll region? 

Br if not 

Subtract top line of scroll region 

1st line is 1 

Br if we are within scroll region 

Force to 1st line of scroll region 

Convert to ascii digit string 

Send semicolon 

Get column number 

Convert to ascii digit string 

Terminate sequence 



CALL 


GENCSI 


MOV 


DW*LIN(R2),R0 


BIT 


#AW*ORS, DW*AW 


BEG 


1* 


SUB 


DW*SRT<R2),R0 


INC 


RO 


BGT 


1* 


MOV 


#1. RO 


CALL 


GEN V At. 


SEND 


#SEMI 


MOV 


DW*C0L(R2),R0 


CALL 


GENVAL 


SEND 


#'H 


BR 


9* 



Generate control sequence for VT52 



004737 012260' 



5?: 



OOOOOOG 
000037 

OOOOOOG 
000037 



CALL 


GENESC 


SEND 


#'Y 


MOV 


DW*LIN<R2),R0 


ADD 


#37. RO 


SEND 


RO 


MOV 


DW*C0L(R2)>R0 


ADD 


#37, RO 


SEND 


RO 



i Generate escape 

i Start of cursor addressing sequenci 

; Get current line number 

; Form ascii char for line number 

; Send it 

; Get current column number 

; Form ascii char for column number 

i Send it 



000207 



F i ?i i s h e d 
9$: RETURN 
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3 






4 






5 


012260 




6 


012270 


000207 


7 






8 






9 






10 






11 






12 


012272 




13 






14 






15 






16 






17 






18 






19 






20 






21 






22 






23 


012272 




24 


012302 




25 






26 






27 






28 


012312 


000207 


29 






30 






31 






32 






33 






34 






35 






36 






37 






38 


012314 


010146 


39 


012316 


116201 OOOOOOG 


40 


012322 




41 


012330 


01260.1 


42 


012332 


000207 
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. SBTTL GENESC — Generate escape character 

^ .-.■..-. ^.^. — -.— «.—, — «--. — —.-«.«.—.-«—«--«—«--««._-„.-««.»« — ««—.—,._. 

.: Send an escape character to the terminal 

GENESC: SEND #33 ; Send escape to the terminal 

f^ETURN 

. SBTTL GENCSl — Senerate CSI character sequence 

Send a CSI (ESC C ) sequence to the terminal. 

GENCSl: 

Send S~bit CSI character to VT200 terminals 

BIT #AWf200, DW*AW(R2)J Is this a VT200 terminal? 

BEQ 1* i Bv if not 

SEND #CSrCHR ; Send S-bit CSI character to VT200 

BR 9* 

Send ESC C to VTIOO terminal & 



1«: SEND #33 

SEND # ' C 



i Send escape 
iSend "C" 



f " i n i E h e d 

9*: RETURN 

. SBTTL GENCHR — Stnd a character to the terminal 

Send a single character to the terminal 

Inputs: 
RO = Character to be st-nt 
R2 = Pointer to window control block 

GENCHR : NOV R 1 , - ( SP ) 

MOVE DW$J0B<R2)>R1 i Get # of job we are sending to 

OCALL BUFCHR ; Send the character 

MOV (SP)+,R1 
RETURN 
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4 






5 






6 






7 






8 






9 


012334 


010446 


10 


012336 


010546 


11 


012340 


010005 


12 






13 






14 






15 


012342 


005046 


16 


012344 


005004 


17 


012346 


071427 000012 


IS 


012352 


062705 000060 


19 


012356 


010546 


20 


012360 


010405 


21 


012362 


00 1 370 


22 






23 






24 






25 


012364 


012600 


26 


012366 


00 1 404 


27 


012370 




28 


012376 


000773 


29 






30 






31 






32 


012400 


012605 


33 


012402 


012604 


34 


012404 


000207 
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send 

. SBTTL GENVAL — Convert value to digits and send 

Convert a binary value? to an ascii digit string and send to the 
terminal . 

Inputs: 
RO = Value to be converted and sent 



GENVAL: MOV 
MOV 
MOV 



R4, -<bP) 
R5, -(BP) 
RO, R5 



1*: 



; <Set value to be converted 
Convert to digits and Gtaclf the digits 



Store null on stack to indicate end 

Clear high-order for divide 

Divide R4-R5 by 10. 

Convert remainder to ascii digit 

Stack the character 

Oet quotient 

Loop if more digits to convert 



CLR 


-(SP) 


CLR 


R4 


DIV 


#10. ,R4 


ADD 


#'0,R5 


MOV 


R5, -<SP) 


MOV 


R4, R5 


BNE 


1$ 



Horn pop the digits and send them 



>$: 



?*: 



MOV 


(SP)+, RO 


BEQ 


9* 


SEND 


RO 


BR 


2* 


Finished 




MOV 


<SP)+> R5 


MOV 


< SP ) +, R4 


RETURN 





i Get next chaT- to send 

; Br if finished 

; Send a digit 

j Send rest of number 



TSWIN •- 


- TSX-Pl 


u 5 D i s p i 


ay Windo MACRO V 


EMTWIN - 

1 

2 
3 


— Dispa 


tch win<loiu control EMT'b 








4 








5 








6 








7 








8 








9 








10 








U 
12 
13 


012406 












14 








15 


012406 


113700 


0000000 


16 


012412 


020027 


000006 


17 


012416 


001407 




IS 


012420 


032761 


OOOOOOG OOOOOOG 


19 


012426 


001403 




20 


012430 


005000 




21 


012432 


000137 


0000000 


23 








24 








25 


012436 


006300 




26 


012440 


020027 


000020 


27 


012444 


103403 




28 


012446 


005000 




29 


012450 


000137 


OOOOOOG 


30 








31 








32 








33 


012454 


000170 


012460' 


34 








35 








36 








37 


012460 


012500' 




30 


012462 


013170' 




39 


012464 


013236' 




40 


012466 


01 3350 •' 




41 


012470 


013370^ 




42 


012472 


013410' 




43 


012474 


013456' 




44 


012476 


013740' 




45 




000020 




46 
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. SBTTL EMTWIN -- - Dispatch uiindou) control EMT's 

EMTWIN is entered from EMT processing when a windouj control EMT 
is executed. It dispatches control to the correct processing 
routine based on the subfunction code. 

Inputs: 
Rl ~ Job index number 
EMTBLK = EMT argument blnck 

MTWIN: 

Ignore luindouj control EMf's if this is a detached job 

MOVB EMTBLK, RO i Get EMT subfunction code 

CMP RO, #6 ; Read-ujindoui-data function? 

BEQ 2* ; Br if yes — OK for detached jobs 

BIT #«DETCH. LSW(R1.> ; Is this a detached job? 

BEQ 2* J Br if not 

CLR RO : Return error for detached job 

JMP SETERR 

Get EMT subfunction code and make sure it is valid 



2*: ABL RO 

CMP RO, #MAXSFC 

BLO 1* 

CLR RO 

JMP SETERR 

Enter processing routine 

1*: JMP @WINVEC<RO) 



i Convert subfun code to word table index 

;Is the subfunction code valid? 

.: Br if yes 

.: Return error code if not 



i Enter processing routine 



Branch vector for subfunction codes 



WINVEC: , WORD 


WFNEW 


. WORD 


WFMAP 


. WORD 


WFDEL 


. WORD 


WFSPND 


. WORD 


WFRSUM 


. WORD 


WFPRNT 


. WORD 


WFREAD 


. WORD 


WFSTT 


MAXSFC ^^ 


. -WINVEC 



i ~ Create a new window 

! 1 - Select a window 

j2 - Delete a window 

.: 3 ~ Suspend window processing 

; 4 - Resume window processing 

i 5 ~ Print the specified window 

;6 - Read window data into program buffer 

.; 7 -- r3et terminal type 

i Highest branch vector index 
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SBTTL WFNEW 



EMT to create a new windoiu 



3 
4 
5 
6 

S 

9 
10 
U 
12 
13 
14 
15 

16 012500 
17 
18 
19 

20 012500 

21 012504 

22 0] 

23 0] 
24 
25 
26 
27 



H2510 
(12512 





28 

29 

30 

31 

32 

33 

34 
35 
36 
37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



12516 
12522 
12526 
12530 
12534 
12540 
12542 
12546 



12552 
12556 
12560 
12562 
12564 
12570 
12576 
12604 
12610 
12614 
12616 

1 262i;.. 

1 26is.6 
12630 
12634 
12640 
12646 
12654 
12662 
12670 



1 1 3702 
004737 
103402 
004737 



013702 
105762 
001411 
062702 
020237 
103770 
012700 
000137 



101402 
012700 
010062 
012762 
1 1 3762 
012762 
012762 
016262 



0000020 
014140' 

014104' 



000002 ' 
OOOOOOG 

ooooooe 

000004 ' 

000001 
OOOOOOG 



012700 OOOOOOC 

010203 

005023 

07700P 

110162 

1 1 3762 

012762 

113700 

042700 

001002 

1 2700 



WINNEW is the EMT used to define a neu> window. 
The form of the EM f arciument block is: 





. BYTE 




. BYTE 




. BYTE 




. WORD 




. WORD 


Input 


S- '. 


Rl - 


Job 


EMTBLK = 



O, 161 

wind o w._n umb er > p er m _f lag 

w i n d o w. w i d t h ^ ma x s c r o 1 1 

copy windowjcopy ) o b 





index number 

EMT argument block 



WFNEW: 



If a window with this number already exists for this job> delete it. 



MOVB EMTBLK+2, RJ 

CALL WINSRC 

BCS 1* 

CALL WINDEL 



.: Get specified window number 

j Try to locate window control block 

j Br if that window not currently defined 

; Delete the window 



Try to find a free window control block 



1*: MOV DWBAS, R2 

2$: TSTB DW$J0B(R2) 

BEQ 5* 

ADD #DW**SZ, R2 

CMP R2, DWEND 

BLO 2« 

MOV #1.R0 

JMP SETERR 



iPoint to 1st window control block 

.ils this block freeT' 

; Br if yes 

i Point to next window block 

iChecked all blocks? 

I Br if yes 

; Return error if no free blocks 



Initialize the window control block 



5$: 
3*: 



OOOOOOG 

000002G OOOOOOG 
OOOOOOC OOOOOOG 
000004G 
177400 

000120 
000204 



000204 

OOOOOOG 

000030 

000005G 

000001 

000001 

OOOOOOG 



11*: 



12*: 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



MOV 

MOV 

CLR 

SOB 

MOVB 

MOVB 

MOV 

MOVB 

BIC 

BWE 

MOV 

CMP 

BLOS 

MOV 

MOV 

MOV 

MOVB 

MOV 

MOV 

MOV 



> Get # words in window block 
i Get pointer to control block 
; Zero the entire block 



#DW**S2/2> RO 

Rcu J R3 

(R3) + 

RO. 3* 

Rl, DW$J0B<R2) ;Set our job number 

EMrBLK+2> DW*ID<R2)i Set window ID number 

#<AW*VCR!AW$RPT>, DW*AW<R2); Initialize window attribute flags 

EMTBLK+4, RO 

#-C<377>, RO 

11* 

#80. , RO 

RO, #132. 

12* 

#132. , RO 

RO, DW*CPL(R2) 

#24. , DW*LPP{R2.) 



Get # columns per line 

Kill sign extension 

Br if width not zero 

Set width to SO 

Compare with max width allowed 

Br if ok 

Constrain to 132 

Set number of columns per line 

Set number of lines per page 
EMTBLK+5, DWIiMSL(R2)i Set max-scrol led-1 ines parameter 
#1, DW$TLN<R2) ;Say line 1 is at top of buffer 
#1, DW*SRT<R2) i Say line 1 is top of scrolling region 
DW*LPP<R2), DW*SRB<R2)i scroll ing region goes to end of page 



€ 
€ 
€ 

i 
i 
€ 

i 

€ 

€ 

i 
* 
i 



r 
i 
i 
c 
i 
I 
i 
i 
i 
€ 
i 
i 
i 
i 
i 
i 
1 
i 
< 



TSWIiM 
WFNEW 
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58 

S9 

60 

61 

62 

63 

64 

65 

66 

67 

69 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



012702 
012710 
012712 
012720 
012726 



012734 
012742 
012744 
012752 
012754 



012762 
012766 
012770 



012776 
013002 
013004 
013006 
013012 
013014 
013020 
013022 
013026 
013030 
013032 
013036 
013042 
013044 
013052 
013060 
013066 
013072 
013076 
013104 
013110 



013112 
013116 
013120 
013124 



012676 004737 013774' 



032761 
001411 
1 1 2762 
112762 
1 1 2762 



032761 
001407 
032761 
001403 
052762 



105737 
001403 
052762 



005737 
001443 
010203 
013702 
010201 
042702 
000301 
042701 
006301 
001002 
113701 
004737 
103422 
016263 
016263 
1 1 6263 
016200 
042700 
042763 
050063 
010302 



004737 
103006 
004737 
012700 



OOOOOOC OOOOOOG 



000001 
000001 
000002 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



000003G 
OOOOOOG OOOOOOG 

000006G 

000006G 

177400 

177400 



OOOOOOG 
014140' 



Initialize terminal type 

CALL WINSTT ; Set correct terminal type 

Initialize character set mapping for a VT200 

BIT #<VT2007 ! VT2000>, LTRMTP ( R 1 ) ; Is termi na 1 a VT200? 

BEQ 7* ; Br if not 

MOVE #1, DW«G2M<R2) i Map G2 to DEC supplemental chars 

MOVB #1, DW*G3M<R2> ; Map G3 to DEC supplemental chars 

MOVE #2, DW*GRM<R2) ; Map GR to G2 

Set application keypad mode if Single line editor is in KED mode 

7$: BIT #*SLON, LSW7<R1 ) jIb single-line editor turned on? 

BEQ 10$ ; Br if not 

BIT #*SLKED, LSW7<R1>; Is SL in KED mode? 

BEQ 10* J Br if not 

BIS #AW$AKM» DW*AW<R2>; Set application keypad mode 
> 
i See if this windou should be permanent 

10*: TSTB EMTBLK+3 ; Is permanent-window flag set? 
BEQ 8* ;Br if not 

BIS #AW*PRM> DW*AW<R2); Remember window is permanent 

See if we should copy any window attributes from an existing window 



S*: 



14*: 



OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOC 
OOOOOOC 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



15*: 



rsT 

BEQ 

MOV 

MOV 

MOV 

BIC 

SWAB 

BIC 

ASL 

BNE 

MOVB 

CALL 

BCS 

MOV 

MOV 

MOVB 

MOV 

BIC 

BIC 

B I S 

MOV 



EMTBLK+6 

13* 

R2, R3 

EMTBLKH-6> R2 

R2, Rl 

#-C<377>, R2 

Rl 

#--C<377.>>Rl 

Rl 

14* 

CORUSR, R.I 

WINSRC 

15* 



i Should we copy attributes from another windo? 

j Br if not 

i Save addr of new window control block 

; Get window, id and job number 



iClear all but window ID 

.: Get job # to low-order byte 

i Clear all but job number 

i Get job index number 

i Br if job number specified 

i Assume current job 

i Try to find existing wijidow control block 

i Br if could not find one 
DW*LPP(R2), DW*LPP(R3) ; Copy # lines per page 
DW*CPL(R2)> DW*CPL(R3) J Copy # columns per line 
DW*MSL(R2), l)W*MSL<R3) iCopy max # scroll lines 
DW*AW(R2),R0 ;Get window attribute flags 
#"C<AW*132 !AW*REV>, RO i Leave only ones to be copied 
#<AW*132! AW*REV>. DW*AW<R3) /Clear in new control block 
RO, DW*AW<R3) ; Transfer the flags 
R3) R2 ; Get back address of new window control block 



Create a named local reqion for the screen buffer for the window 



014204' 

014104' 
000002 



13*: 



CALL 


MAKWSB 


BCC 


4* 


CALL 


WINDEL 


MOV 


#2, RO 



Make a window screen buffer 
Br if we made the region 
Delete the window 
Return error code 2 



i 

€ 
t 
f 

€ 
I 
I 

i 
i 
i 
< 

( 
C 
i 
I 

i 
i 

4 
i 



TSWIN — 
Wf-NEW - 

115 
116 
117 

lie 

119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
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-- EMT to create a new window 



i 

€ 



013130 000137 OOOOOOG 



013134 004737 006210 



013140 012700 000001 

013144 110062 OOOOOOG 

013150 110062 OOOOOOG 

013154 010062 OOOOOOG 

013160 004737 006702' 



013164 000137 OOOOOOG 



vJMP SETERR 
Clear entire screen contents to blanks 
4«: CALL ERSPAG j Clear all positions to spaces 

Set line 1, column 1 as cursor position 



MOV 

MOVB 

MOVE 

MOV 

CALL 

Finished 

JMP 



#1, RO 

RO. DW*SLN(R2) 

RO, DW*SCL<R2) 

RO, DW*C0L(R2) 

SETLIN 



EMTXIT 



Get value 1 

Init saved line # to 1 

Init saved column # to 1 

Set column = 1 

Set line =1 



TSWIN -• 
WFMAP • 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IfJ 

19 

20 

21 

22 

24 

25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 



• TSX-Plus Displ 
— EliT to s e 1 e c: t 
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a windouj as the current uiindow 



013170 



013170 
013174 
013176 
013202 



1 3204 
013210 
013212 
013216 



013702 
001003 
005061 
000413 



004737 
103004 
012700 
000137 



0000020 
OOOOOOQ 



014140' 

000003 
OOOOOOQ 



010261 OOOOOOG 



013226 004737 007064' 



013232 000137 0000000 



. SBTTL WFMAP 



EMT to select a windoiu as the current windouj 



Selc?ct a window as the current ujindoui for the job and refresh 
the display screen from the uiindotu contents. 

I n p u t ii : 
Rl ~ Job index number 
EMTBLK = EMT argument block 

WFMAP : 

If current windoui number is zero., switch back to no window 



MOV 


EMTBLK+2> R2 


BNE 


2* 


CLR 


LWIND0<R1) 


BR 


9* 



CALL 


WINSRC 


BCC 


1* 


MOV 


#3, RO 


viMP 


SETERR 



.; Get specified window number 
.i Br if some window specified 
j Say we are not doing windoing 



Locate the window control block for the specified window 

2f: CALL WINSRC ; Find window control block 

i Br if found it 
j Error 3 i f not 



Set this window as the current window for the job 
1*: MOV R2. LWIND0<R1.> ; Say this is current window for job 
Refresh the display from selected window 

CALL REFRSH ; Refresh display from window contents 

F i n i '.-. h e d 
9$: JMP EMTXIT 
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WFDEL — EMT to delete a ujindotu 

1 . SBTTL WFDEL -- - irMT to delete a windouj 

EMT to delete a wiTidow. 

Inputs: 

Rl = Job index number 

WFDEL: 

Jr\i to locate control block for the window 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 



013236 



013236 113702 

1 3242 00 1 406 

013244 120227 

013250 001024 



000002G 
177777 



MOVB 


EMTBLK+2, R2 


BEO 


3* 


CMPB 


R2. #-1 


BME 


2* 



; Oet specified luindouj number 
i Br if window number is zero 
;l5 window number -1? 
; Br if not 



Delete all windows for job (temp and permanent) 



013252 004737 014052' 
013256 000432 



013260 013702 000002' 

013264 120162 OOOOOOG 

013270 001006 

013272 032762 0000000 OOOOOOG 

013300 001002 

013302 004737 014104' 

013306 062702 OOOOOOG 

013312 020237 000004' 

013316 103762 

013320 00041.1 



013322 004737 014140' 

013326 103004 

013330 012700 000003 

013334 000137 OOOOOOG 



013340 004737 014104' 



013344 000137 OOOOOOG 



CALL 
BR 



WIIMREL 
9* 



^Release ail windows for the job 



Window number zero means delete all temporary windows 



DWBAS, R2 ; Point to Ist window control block 

Rl. DW$J0B<R2) .: Does this window belong to our job? 

4* ; Br if not 

#AW*PRM> DW*AW<R2)i Is this a perm or temp window? 

4* > Br if permanent window 

WINDEL » Delete this window 

#DW**SZ) R2 ; Point to next window control block 

R2. DWEND ; Checked all? 

5* i Br if not 

9« 



3*: 


MOV 


5*: 


CMPB 




BNE 




BIT 




BNE 




CALL 


4*: 


ADD 




CMP 




BLD 




BR 



We arci deleting a specific window 



?«: 



CALL 


WINSRC 


BCC 


1* 


MOV 


#3, RO 


JMP 


SETERR 



j Try to locate window control block 

; Br if located the window control block 

; Error code 3 if cannot locate window 



; Delete the window 

9 

1$: CALL WINDEL 

> 

i F i n i B h e d 

9*: JMP EMTXIT 



; Delete the window 



TSWIN -• 
WFSPND ■ 



3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 



TSX-FH. us Di splay Win do 
:• n d U.I i n (J u lu p i- o c e s e 



Suspe 
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i 11 ti 



013350 
013354 
013356 
013364 



013370 
013374 
013376 
013404 



SBTTL WFSPMD 



Bu spend ujindoiu processing 



Suspend window processinri- After executing this emt» windou) 
processing is suspended. Characters are passed through to the 
screen without being processed by the window routine. 



1 n p u t s : 
Rl -- v'ob index number 



016102 OOOOOOG 

001403 

052762 OOOOOOG OOOOOOG 

000137 OOOOOOG 



WFSPND: 



9*: 



MOV 
18EQ 
B.IS 
sJMP 



LWIND0<R1 ) J R2 i Get pointer to current uiindoui control block 
9* i Br if job has no window active now 

#AW*SPN. DW*AW(R2).: Set flag suspending window processing 
EMTXIT i Finished 



. SBTTL WFRSUM — Rtsume window processing 

Resume window processing. 

Inputs: 
Rl -~ Job index number 



016102 OOOOOOG 
00 1 403 

042762 OOOOOOG 

000137 OOOOOOG 



WFRSUM: MOV 

BEQ 

OOOOOOG BIC 

9*: sJMP 



LWIND0(R1 )* R2 ; Get pointer to current window control block 
9* i Br if job has no window active now 

#AW*SPM. DW*AW<R2) j Say window no longer suspended 
EMTXIT ; Finished 



i 
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WF'PRNT — -- Cause contents of a window to be printed 



3 

4 

5 

6 

7 

S 

9 
10 
11 
12 

13 013410 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
23 
29 
30 
31 

33 



013410 113702 0000020 

013414 001403 

013416 004737 014140' 

013422 103004 

013424 012700 000003 

013430 000137 OOOOOOG 



013434 004737 014710' 

013440 103004 

013442 012700 000004 

013446 000137 0000000 



013452 000137 OOOOOOG 



. SBTTL WFPRNT — Cause contents of a windou* to be printed 

Cause the contents of a windoui for the current job to be printed. 

I n p u 1 5 : 
Rl ~ Job index numb err 

EMI argument block; 

. BYTE 5, 161 

. BYTE wind ow _i d > 

WFPRNT: 

Locate the windouj control block for the specified window 

j Oet specified window ID 
J Zero is inval id 
;Find window control block 
; Br if found it 
3f: MOV #3. RO ; Error 3 if invalid window ID 

m 

Print this window 



MOVB 


EMTBLK+2> R2 


BEQ 


3* 


CALL 


WINSRC 


BCC 


1* 


MOV 


#3. RO 


v^MP 


SETERR 



1$: CALL 


WINPRT 


BCC 


9* 


MOV 


#4. RO 


JMP 


SETERR 


> Finished 




9*; JMP 


EMTXIT 



i Try to print the window 

i Br if successful 

; Error 4 if can't print 
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f-READ - 
1 


— Copy 


ujindou) informati 


2 
3 
4 








5 








6 








7 








8 








9 








10 








11 








12 


013456 






13 








14 








15 








16 


013456 


013700 


000004G 


17 


013462 


004737 


0000000 


18 


013466 


063700 


0000060 


19 


013472 


004737 


0000000 


20 








21 








22 








23 


013476 


113701 


0000030 


24 


013502 


006301 




25 


013504 


00 1 002 




26 


013506 


113701 


0000000 


27 


013512 


120137 


OOOOOOG 


28 


013516 


001410 




29 


013520 


032737 


0000000 


30 


013526 


001004 




31 


013530 


012700 


000001 


32 


013534 


000137 


OOOOOOG 


33 








34 








35 








36 


013540 


1 1 3702 


0000020 


37 


013544 


004737 


014140' 


38 


013550 


103004 




39 


013552 


012700 


000003 


40 


013556 


000137 


OOOOOOG 


41 








42 








43 








44 


013562 


016203 


OOOOOOG 


45 


013566 


070362 


OOOOOOG 


46 


013572 


006303 




47 


013574 


066203 


OOOOOOG 


48 


013600 


005203 




49 


013602 


042703 


000001 


50 


013606 


010300 




51 


013610 


062700 


000006 


52 


013614 


020037 


000006G 


53 


013620 


1 1 404 




54 


013622 


012700 


000004 


55 


013626 


000137 


OOOOOOG 


56 








57 









. SBTTL WFREAD — Copy window information to program buffer 

Copy window data into buffer in program area. 

EMT ar g umen t block: 

. BYTE 6, 161 

. BYTE window„idi job..jiumber 

. WORD buffer' address 

. WORD buffer^ si z f 

Wr-REAl): 

Make sure specified buffer address and size is ok 

Get base address of buffer 
Make sure it's ok 
Add specified size 
Make sure end is ok too 

Get the number of the job whose window we want to read 

Get specified job number 
Convert to job index number 
Br if job number specified 
Get current job index number 
1«: CMPB R1,C0RUSR i Are we reading window for our job? 

Br if yes 

Do we have GETCXT privilege? 
Br if yes 
Error 1 if not 



MOV 


EMTBLK+4, RO 


CALL 


VALADW 


ADD 


EMTBLK+6, RO 


CALL 


VALADB 



MOVB 


EMTBLK+3, Rl 


ASL 


Rl 


BfME 


1* 


MOVB 


CORUSR, Rl 


CMPB 


R1,C0RUSR 


BEO 


5* 


BIT 


#P2*CXT, PRIVC2 


BNE 


5* 


MOV 


#1, RO 


JMP 


SETERR 



Find the specified window control block 



MOVB 


EMTBLK-+-2, R2 


CALL 


WINSRC 


BCC 


2* 


MOV 


#3, RO 


JMP 


SETERR 



i Get window ID 

; Search for specified window 

; Br if found the window control blk 

(Invalid window ID 



Determine how much data must be copied 

?*: MOV DW*LPP<R2), R3 i Get # lines on page 

; Times # columns per line 

iMeed two bytes for each char cell 

; Add space used by line attrib vector 

i Round up to next word 

J Get # bytes of window buffer data 

j Add # bytes for parameter words 

; Is buffer large enough? 

i Br if yes 

; Error 4 if buffer too small 



Copy some window parameter information before actual window buffer 



MOV 


DW*LPP<R2), R3 


MUL 


DW*CPL(R2),R3 


ASL 


R3 


ADD 


DW*LPP<R2),R3 


IMC 


R3 


BIC 


#1.R3 


MOV 


R3, RO 


ADD 


#3*2, RO 


CMP 


RO, EMTBLKh-6 


BLOS 


3* 


MOV 


#4, RO 


JMP 


SETERR 



i 
i 
I 
c 
I 
i 
i 
I 
c 

€ 

I 

c 
i 

€ 

€ 

I 
C 

i 

i 
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WFREAD — Copy ujindou) information to program buffer 



58 








59 


013632 


013705 


0000040 


60 


013636 


016246 


0000000 


61 


013642 


106625 




62 


013644 


016246 


ooooooe 


63 


013650 


106625 




64 


013652 


016246 


OOOOOOG 


65 


013656 


106625 




66 








67 








68 








69 


013660 


006203 




70 


013662 


012704 


0000000 


71 


013666 






72 


013710 


012400 




73 


013712 






74 


013726 


010046 




75 


013730 


106625 




76 


013732 


077323 




77 








78 








79 








80 


013734 


000137 


OOOOOOG 



3*: 



MOV 

MOV 

MTPD 

MOV 

MTPD 

MOV 



21 -Dec -87 07:45 Page' 89- 1 



EMTBLK+4,R5 j Get address of user's buffer 

DW*TLN(R2). -<SP); Store top line number 

(R5) + 

DW*LPP<R2). ~<SP); Store # lines per page 

<R5)+- 

DW*CPL<R2>. -(SP)i Store # columns per line 



MTPD (R5)+ 
Copy data from windouj region to user's buffer 



4*: 



ASR 


R3 


MOV 


#VPAR6. R4 


B UP MAP 




MOV 


(R4)+-, RO 


UMMAP 




MOV 


RO, -<SP) 


MTPD 


(R5) + 


SOB 


R3, 4* 


F i n i fi h e d 




JMP 


EMTXIT 



Get # words to copy 

Get virt address of tuindow region 

; ; Map to window region 

i ; Get a word from screen region 

Restore mapping 

Push word we are transferring 

Store data into user's buffer 

Loop if more data to copy 






TSWIN — 
WFSTT - 

1 

n'. 

3 

4 

5 

6 

7 

8 

9 

10 

1.1. 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



TSX-Plu!;. Display Windo MACRO V05. 04 Monday 21-Dec-a7 07:45 Page 90 
- EMT to set terminal type for uiindowinti 



013740 



013740 013702 000002' 

013744 120162 0000000 

013750 001002 

013752 004737 013774' 

013756 062702 OOOOOOG 

013762 020237 000004' 

013766 103766 



013770 000137 0000000 



. SDTTL WFSTT — EMT to set terminal type f-or ujindouing 

Reset the terminal type for all windows being used by this job. 

Inputs: 
iRl = vJob index number. 

WFSTT: 

Begin loop to process all windows belonging to this job 



1*: 



2*: 



MOV 


DWBAS, R2 


CMPB 


Rl, DW*J0B<R2) 


BNE 


2* 


CALL 


WINSTT 


ADD 


#DW**SZ, R2 


CMP 


R2> DWEND 


13L0 


1* 


F i n i s h e d 




JMP 


EMTXIT 



jRoint to 1st window control block 

;Does this one belong to this job? 

i Br if not 

j Reset terminal type for this window 

i Point to next window control block 

^Checked all? 

jLoop if not 



TSWIN 
WINSTT 



TSX-Piu5 Display Windo 
- Set terminal type for 



3 
4 
5 
6 
7 
S 
9 



MACRO V05. 04 Monday 21-Dec-87 07: 45> Page 91 
a uiindouj 



. SBTTL WINSTT — '3f>t terminal type for a window 

WINSTT sets up the terminr3l type in the windouj control block 
attribute word based on the terminal type specified for the job. 

I n p u t G : 
R2 -■ Pointer to window control block 



10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



013774 010146 
13776 U6201 0000000 



WINSTT; MOV 
MOVE 



R 1 , - < SP ) 
DW*J0B(R2),R1 



014002 042762 OOOOOOC OOOOOOG 



i Get job index number 
Determine terminal type bssed on line type 

BIC #<AW*52!AW*200>. DW*AW(R2) j Say not VT52 and not VT200 
See if terminal is a VI bP 



23 
24 
25 
26 
27 
28 
29 
30 
31 
32 



14010 
14016 
14020 
14026 



14030 
14036 
14040 



14046 
14050 



001404 
052762 
000407 



032761 
001403 
052762 



01260.) 
000207 



0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 



J3IT 
BEQ 
BIS 
BR 



#VT52, LTRMTP<R1); Is this a VT52? 

1* ; Br if not 

#AW*52, DW$AW<R2); Set VT52 as terminal type 

9* 



See if terminal is a VI 200 



OOOOOOC 
OOOOOOG 



OOOOOOG 1$: 
OOOOOOG 



BIT 
BEO 

BIS 

Finished 



#<VT2007.'VT2008>, LTRMTP<R1> i VT200 terminal? 

9* ; Br if not 

#AW$200. DW*AW<R2)j Set VT200 as terminal type 



9*: MOV (SP>+, Rl 
RETURN 



TSWIN - 
WINREL 
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■- Release all display windows for a job 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

U 

12 

13 

14 

15 

16 

17 

19 

19 

20 

21 



014052 



014052 013702 000002' 
014056 120162 0000000 
014062 001002 



014064 0047: 



014104 



014070 062702 0000000 
014074 020237 000004' 
014100 103766 



. SBTTL WINREL — Release all display ujindouis for a job 

Relpfjse ail display windiMus for the current job. 

Inputs: 
Rl - vJob index number for job whose windows are to be released. 

WINREL; 

Begin loop to search for window control blocks belonging to this 
job. 

j Point to first window control bloch 
1*: CMPB Rl, DW$J0B(R2) ils this one belong to our job? 

Br if not 

Delete the windoe 
2*; ADD #DW**SZ, R2 i Point to next window control block 

Checked all? 

Loop if not 



23 014102 000207 



MOV 


DWBAS, R2 


CMPB 


Rl, DW*J0B(R2) 


BME 


2* 


CALL 


W I NOEL 


ADD 


#DW**SZ, R2 


CMP 


R2, DWEND 


BLO 


1* 


F i n i B h e d 




RETURN 





TSWIN - 
WINDEL 
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■ Delete a wiudouj 



.1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
nn 

23 
24 
25 
26 
27 
28 



014104 



014104 :! 16200 OOOOOOG 

014110 020260 OOOOOOG 

014114 001002 

014116 00 5060 OOOOOOG 



014122 004737 014514' 



014126 105062 OOOOOOG 
014132 105062 OOOOOOG 



014136 000207 



. SBTTL WINDEL — Dc-JBtt? a windouj 

Delete a uindouj and release its screen buffer region. 

Inputs: 
R2 = f^'ointer to window control block 

WINDEL : 

If this is the current windowj reset window info for job 



MOVB 
CHP 
BNE 
CLR 



DW$J0B<R2), RO i Get # of job that owns this luindow 

R2. LWINDD<RO) ;l5 this current window for the job? 

1* i Br if not 

LWINDO<RO) ; Say job is not doing windowing 



; Free the region used for the screen buffer 

1*: CALL FREWSB ; Free the window screen buffer 

; Free the window control blocfe 



CLRB 
CLRB 

Finished 

RETURN 



DW*ID(R2) 
DW*J0B(R2) 



; Say block is free 
iSay no job using block 



TSWIN — TSX--F1UG Display Windo MAC 
WINSRC — Locate contvo} block for 
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a ujindouj 



3 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 








14 








15 


014140 






16 








17 








18 








19 


014140 


010200 




20 


014142 


013702 


000002 ' 


21 


014146 


120062 


0000000 


22 


014152 


001003 




23 


014154 


120162 


0000000 


24 


014160 


001407 




25 


014162 


062702 


OOOOOOG 


26 


014166 


020237 


000004 ' 


27 


014172 


10 376 J) 




28 








29 








30 








31 


0141 74 


000261 




32 


014176 


000401 




33 








34 








35 








36 


014200 


000241 




37 








38 








39 








40 


014202 


000207 





SBTTL WINSRC 



Locate control block for a windouj 



Locate a windciu control block for a specified window for the current 
job. 

Inputs: 
Rl -■ Index number of job that owns the window 
R2 -- Window number 

Outputs: 
C-flag cleared ==> Found window control block 
C "flap set ==> Cannot find window control block 
R2 -■ Pointer to window lontrol block if found 

WINSRC: 

Search for specified window control block 



1*: 



2f : 



MOV 


R2, RO 


MOV 


DWBAS, R2 


CMPB 


RO, DW$ID(R2) 


BME 


2* 


CMPB 


Rl, DW*J0B<R2) 


BEQ 


3* 


ADD 


#DW$*SZ, R2 


CMP 


R2, DWEMD 


BLO 


1* 



Oet window ID 

Point to first window control block 

Does this block have correct ID? 

Br if not 

Is this control block for right job? 

Br if yes 

Point to next control block 

Checked all? 

L o o p i f n o t 



Can»)ot find specified window control block 



SEC 
BR 



Signal error on return 



9* 



Found the window control block 



3^: CLC 

F" i n i & h e d 
915: RETURN 



i Signal success on return 



TSWIN — TSX-Plus Disp: 
MAKWSB • — Create named 



1 

2 

3 

4 

•5 

6 

7 

8 

9 
10 
11 
12 
13 

14 

15 

16 

17 
IS 
19 
20 
21 

22 

23 

24 

25 

26 

27 
28 
29 
30 

31 

32 

33 

34 

35 
36 
37 
38 

39 

40 

41 



ay Wir.do MACRO V0;5. 04 Monday 21-Dec-87 07: 4 '.i Page 95 
region for window screen buffer 



14204 
14206 
14210 
14212 
14214 



14216 
14222 
14226 
14230 
14234 
14240 



14244 
14250 
14252 
14256 
14262 



42 

43 
44 
45 
46 

47 

48 
49 
50 
51 
52 

53 

54 

55 
56 
57 



14270 
14274 
14276 
14300 
14304 



14310 

14312 



14314 
14320 
1 4326 



010146 
010346 
010446 
010546 
01060t> 



1 6203 
070362 
00630:? 
066203 
062703 
072327 



162706 
010604 
004737 
010364 
012764 



010601 
010600 
012710 
010460 



1043717 

103426 



016403 
016362 
016362 



SBTTL MAKWSB 



Creaty named region for window screen buffer 



Create a named local region large enough to hold the window 
5 c r e e? n buffer. 

Inputs: 
R2 ^ Pointer to window control block 
EM7BLK-f-2 = Arg block fur EMT to create the window 

Outputs: 
C-flag cleared =;=> Sue ct^&sf ully created region 
C-flag set ==> UnabJe to create region 



MAKWSB : MOV 
MOV 
MOV 
MOV 
MOV 



R 1 . - ( OP > 
R3, "(bP) 
R4, -<SP) 
R5, ~<SP) 
SP, R5 



; Save original stack pointer in R5 
Calculate number of 64-bi|te blocks needed for region 



OOOOOOG 
0000000 

OOOOOOG 

000077 

177772 



000012 
014404' 

ooooooe 

OOOOOOC 0000000 



MOV DW*LPP<R2), R3 

MUL DW*CPL<R2>, R3 

ASL R3 

ADD DW*LPP(R2),R3 

ADD #63. , R3 

ASH #~6. , R3 



iOet # lines on page 

; Times number of columns 

; Need two bytes per character 

j Need byte vector for line attributes 

i Bound up to 64-byte boundary 

j Get # 64-byte blocks needed 



Build a reqion definition block on the stack 



SUB 

MOV 

CALL 

MOV 

MOV 



#10. , SP 

SP, R4 

MAKRDB 

R3, R. GSIZ<R4) 



Allocate space for region def block 

Get pointer to start of RDB 

Make a region definition block on the stack 

Set # 64~byte units needed 



#<RS. GBL.'RS. CGR>, R. GSTS(R4) ; Set status flags 
Build EMT argument block on stack 



)6 000004 



017000 
000002 



SUB 
MOV 
MOV 
MOV 
MOV 



#4. , SP 
SP, Rl 
SP, RO 

#<C36*400>, <R0) 
R4, 2(R0) 



Try to create the region 



EMT 
BCS 



375 
9* 



Allocate space for &"MT arg block 
Save pointer to EMT arg block 
Get pointer to EMT arg block area 
Set EMT function code 
Set address of region def block 



j Try to create the region 

i Br if error on region creation 



We successfully created the region. 

Set up information in the window control block. 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



MOV 
MOV 
MOV 



R.GID<R4),R3 j Get region control block address 
RC*BLK(R3),DW*R.TD(R2); Save addr of global RCB 
RC*BAS(R3).DW*MAP<R2)i Save mapping base for region 



Now detach from the global region 
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58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 



014334 
014340 
014342 
014346 



014350 
014354 
014362 



014370 
014372 
014374 
014376 
014400 
014402 



005064 
010100 
012710 
10437r> 



0000000 
017001 



016203 
052763 
105263 



014366 000241 



Oi050/> 
01260'.} 
012604 
012603 
012601 
000207 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



CLR 
MtJV 
MOV 
EMT 



R. GSTS(R4) ;Clear all status flags 
RIjRO j Get pointer to EMT arg block 

#«36*400>+l>> <R0); Set . ELRG function code 
375 i Detach from the region 



Now go back and set the exclusive-access flag in the global region 
control block and increment its attachment count by one. 

MOV DW*RID<R2),R3 i Get pointer to global RCB 
BIS #RC*EXC,. RC^FLG<R3); Set exclusive-use flag 
INCB RC*CNI (R3) > Increment attachment count 



Successful completion 
CLC 



9$: 



Finished — 


Carry fla 


MOV 


R5. SP 


MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


<SP)+, R3 


MOV 


<SP)+, Rl 


RETURN 





; Signal success on return 



F?eset stack pointer 



i 
i 
i 
i 
i 
t 
i 
i 



TSWIN — 


- TSX-Pl 


LI B D i 5 P i 


ay Windo MACRO V 


MAKRDB - 


— Make 


3 T e g i D n 


definition bloc 


1 
2 








3 








4 








5 








6 








7 








8 








9 








10 


014404 


010146 




11 
12 
13 


014406 


010346 










14 








15 


014410 


00 5064 


0000000 


16 


014414 


005064 


OOOOOOG 


17 


014420 


00 5064 


0000000 


18 








19 








20 








21 








22 








23 








24 


014424 


013764 


000010' OOOOOOG 


25 


014432 


116201 


OOOOOOG 


26 


014436 


006201 




27 


014440 


005000 




28 


014442 


07 1 027 


000012 


29 


014446 


062701 


000036 


30 


014452 


070127 


000050 


31 


014456 


010103 




32 


014460 


010001 




33 


014462 


062701 


000036 


34 


014466 


070127 


003100 


35 


014472 


060103 




36 


014474 


116201 


OOOOOOG 


37 


014500 


060103 




38 


014502 


010364 


000002G 


39 








40 








41 








42 


014506 


012603 




43 


014510 


012601 




44 


014512 


000207 
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SBTTL MAKRDB 



Miikc- a region definition block 



; Initialize a region definition block to access a global region 

i u'^ed as a window bufftrr. 

> 1 n p u t & : 

i R2 -- Pointer to window control block 

i R4 = Pointer to area wht-re region definition block is to be built 



MAKRDB ; MOV 
MOV 



R 1 , - < SP ) 
R3, -<SP) 



Initially zero some cells in the RDB 



CLR R. GID<R4) 
CLR R. eSTS<R4) 
CLR R. GSIZ<R4) 



; Zero addr of region 

; No status flags 

i No size specified yet 



control block 



Construct name for global region. 

The first three characters are "WIN". 

The next two characters are the job number. 

The last character indicates the window ID. 



MOV 


R50WIN, R. 


NAME (R4); Set 1 


MOVE 


DW*J0B<R2 


), Rl 


Get ,10 


ASR 


Rl 




Conver 


Cl_l? 


RO 




Clear 


DIV 


#10. , RO 




Split 


ADD 


#36, Rl 




Conver 


MUL 


#50, Rl 




Shift 


MOV 


Rl, R3 




Save s 


MOV 


RO, Rl 




Get hi 


ADD 


#36, Rl 




Conver 


MUL 


#3100, Rl 




Shift 


ADD 


Rl, R3 




Job # 


MOVE 


DW*ID<R2) 


, Rl 


Get wi 


ADD 


Rl, R3 




Put wi 


MOV 


R3, R. NAME 


+2<R4) 


Set 2n 


Finished 








MOV 


(SP)+, R3 






MOV 


(SP)+, Rl 






RETURN 









st 3 chars of name to "WIN" 
>b index number 
't to job number 

high -order for divide 

job number into two digits 
't binary value to radSO digit 

remainder left 1 rad50 digit position 
►hifted low-order digit of job # 
,gh~order digit of job # 
>t binary value to radSO digit 

over 2 radSO digits 

is two high-order digits 

ndow number 

ndow number as 3rd digit of word 
id word of name 



I 
i 
i 
i 
i 
I 
i 



1 
i 
i 

i 



TSWIN — 


- T3X-F'j 


U 3 D 1 S p 1 


^ly Windo MACRO V 


FREWSB - 

i 


— - Free 


memory m 


<;:ed by window ar; 


2 
3 
4 








5 








6 








7 








8 


014514 


010146 




9 


014516 


010446 




10 


014520 


010546 




11 

12 
13 


014522 


010605 










14 








15 


014524 


016204 


0000000 


16 


014530 


00 1 436 




17 








IS 








19 








20 








21 


014532 


105364 


0000000 


22 
23 
24 


014536 


042764 


OOOOOOG 0000000 








25 








26 


014544 


162706 


000012 


27 


014550 


010604 




28 


014552 


004737 


014404' 


29 


014556 


1 27ct4 


OOOOOOG OOOOOOG 


30 








31 








32 








33 


014564 


162706 


000004 


34 


014570 


010601 




35 


014572 


010600 




36 


014574 


012710 


017000 


37 


014600 


010460 


000002 


3S 


014604 


10437b 




39 


014606 


103407 




40 








41 








42 








43 


014610 


012764 


OOOOOOC OOOOOOG 


44 


014616 


010100 




45 


014620 


012710 


017001 


46 


014624 


10437D 




47 








48 








49 








50 


014626 


010506 




51 


014630 


01260;i 




52 


014632 


012604 




53 


014634 


012601 




54 


014636 


000207 





. SBTTL FREWSB - — Free memory used by window screen buffer 

Free the memory region u{>ed for a window screen buffer. 

I n p t J t s ; 
R2 -- Pointer to window control block 



FREWSB: MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R4, -<SP) 
R5> -<SP) 
SP, R5 



; Save initial stack pointer 

See if this window hat- an associated region 



MOV 
BEG 



DW$R.ID(:R2), R4 
9$ 



; Does window have an assoc region? 

; Br if not 



Decrement attachment-count in global region RGB and 
reset exc 1 usi ve-ust fliact. 

DECB RC*CNT<R4) 'Bay one less job using region 
BIG #RC*EXC. RG*FLG<R4); Clear exclusive-use flag 

Build region definition block on the stack 



SUB 
MOV 
CALL 
MOV 



#10. > SP ; Reserve room for region def block 

SPj R4 j Get addr of base of region def block 

MAKRDB iBuild the region definition block 

#RS. GBL.. R. GSTS<R4); Set global status flag in RDB 



Build EMT argument block on stack to attach to region 



SUB 
MOV 
MOV 
MOV 
MOV 
EMT 
BCS 



#4. , SP J Reserve room for EMT arg block 

SPjRI ; Save pointer to EMT arg block 

SPj RO i Get pointer to arg block area 
#«36«-400> {-0>, < RO ) ; Se t function code 

R4*2(R0) ; Set address of region def block 

375 iTrytoattachtotheregion 

9* j Br if cannot attach to region 



E 1 i (T> i n a t e the r e g a o n 



MOV 
MOV 
MOV 
EMT 

Pini &hen! 



#<RS. GBL.'RS. EGR:>. R. GSTS(R4); Set status flags 
rIjRO > Point to EMT argument block 

#«36*400>M>» <R0); Set EMT function code 
375 ;Elimininate the region 



9*; 



MCiV 
MOV 
MOV 
MOV 
RETURN 



R5, SP 
<SP)+-> R5 
<SP)+, R4 
< SP ) +. R 1 



; Restore stack pointer 
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3 
4 








5 








6 


014640 


010546 




7 
8 








9 








10 


014642 


013705 


OOOOOOG 


11 


014646 


070527 


0000000 


12 


014652 


062705 


015050' 


13 


014656 


020527 


OOOOOOC 


14 


014662 


101402 




15 


014664 


012705 


OOOOOOC 


16 


014670 


010537 


000004 ' 


17 








IS 








19 








20 


014674 


00 504 5 




21 


014676 


020537 


000002 ' 


22 
23 
24 


014702 


101374 










25 








26 


014704 


01260;.; 




27 


014706 


000207 





SBTTL WININI 



TBWIN initialization 



WINIMI i5 called durinct system initialization to initialize the 
display management pystt-fti. 

WININI: MOV R5, -<SP) 

Allocate space for the window control blocks 



1*: 



MOV 

MUL 

ADD 

CMP 

BLOS 

MOV 

MOV 



VMXWIN, R5 
#DW*«SZ, R5 
#WINTOP, R5 



Get # control blocks wanted 
Times size of each block 
Add base of area 

R5> #140000-DW*fSZ ; Would this overflow available area? 

1* i Br if not 

#140000-DW*'-5:SZ. R5; Constrain to available area 

R5»DWEND i Set pointer to end of control blocks 



Zero the entire display control block area 



2*: 



CLR 


-(R5) 


CMP 


R5. DWBAS 


BHI 


2* 


Finj 5hed 




MOV 


(SP)+, R5 


RETURN 





i Zero entire area 

; Reached start of area? 

i Loop if not 



i 

€ 

I 
I 
I 
< 
I 
I 
€ 
€ 

i 
i 
i 

€ 

i 

i 
i 
i 
i 
i 
i 
i 



TSWIN - 


- TSX-Plus Disp.l 


ay Windo MACRO V 


WINPRT ■ 

1 

2 
3 


-- Windouj print" 


K c r e e n F un c t i on 








4 








5 








6 








7 








8 








9 








10 








11 








12 








13 


014710 


1 1 46 




14 


014712 


010446 




15 


014714 


010546 




16 








17 








18 








19 


014716 


012701 


OOOOOOG 


20 


014722 


026137 


0000000 000010' 


21 


014730 


00 1 004 




22 


014732 


026137 


OOOOOOG 000012' 


23 


014740 


001404 




24 


014742 


162701 


000002 


25 


014746 


00336;^ 




26 


014750 


000432 




27 








28 








29 








30 








31 


014752 


016104 


OOOOOOG 


32 


014756 


00 1 427 




33 


014760 


005737 


OOOOOOG 


34 


014764 


003424 




35 


014766 


004737 


OOOOOOG 


36 


014772 


012700 


ooooooc 


37 


014776 


OIOIOD 




38 


015000 


012425 




39 


015002 


07700;* 




40 


015004 


1 1 6200 


OOOOOOG 


41 


015010 


006200 




42 


015012 


110061 


00000 IG 


43 


015016 


116261 


OOOOOOG OOOOOOG 


44 


015024 


010104 




45 


015026 


004737 


OOOOOOG 


46 


015032 


000241 




47 


015034 


00040.1 




48 








49 








50 








51 


015036 


00026.1 




53 








54 








55 


015040 


012605 




56 


015042 


012604 




57 


015044 


01 260 J 
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. SBTTL WINPRT — Window print-screen function 

WINPFrr is called when a control character is received that means 
that me should perform a print-screen function for the current 
window for the job. 

1 n p t ) t B : 
R2 =■ Pointer to current window control block for job 

Outputs: 
C-flag set on return if unable to print the window. 



WINPRT: 



MOV 
MOV 
MOV 



R 1 , ~ ( SP ) 
R4, ~i^3P) 
R5, -(SP) 



See if "WINPRT" detached job is running now 

MOV #LSTSL, Rl ; Get index to last job 

1*: CMP LPRGKRl), RSOWINi Is this the WINPRT program? 

BNE 2* ;Br if not 

CMP LPRG2<R1 ), R50FRT 

BEQ 3* iBr if yes 

2*: SUB #2/Rl i More jobs to check? 

BGT 1$ > Loop if yes 

BR 8* i WINPRT program is not running 

The WINF'RT program is running. 

Schedule a completion routine to tell it to print a window. 

3*: MOV LBRKCQ<R1>, R4 i Get address of its completion Q element 

iBr if no completion routine pending 
; Can we get a free queue element? 
i Br if not 

; Get a free completion Q element <Rl=addr) 
; Get # words in queue element 
; Get pointer to new queue element 

4$: MOV (R4)+, <R5)+ 'Copy original completion Q element 

; Get # of job whose window to print 
; Convert to job number 
;Set job # in high byte of Rl 
;Rl);Set window ID in low byte of Rl 
J Get addr of compl Q element for QCOMPL 
; Queue the completion request for WINPRT 
; Signal success on return 



MOV 


LBRKCQ<R1>,R4 


BEQ 


8$ 


TST 


NMFREQ 


BLE 


8* 


CALL 


GETRTQ 


MOV 


#I0QSI2/2, RO 


MOV 


Rl, R5 


MOV 


(R4)+, <R5) + 


SOB 


RO,. 4$ 


MOVB 


DW$J0B<R2.), RO 


ASR 


RO 


MOVB 


RO, CQ*Ri+i <ru ) 


MOVB 


DW$ID<R2.>, CQ*R 


MOV 


Rl, R4 


CALL 


OCOMPL 


CLC 




BR 


9* 



Unable to print the window 
S*: SEC 
F i n i s h e d 



j Signal failure on return 



91S: 



iiOV 
MOV 
MOV 



(5P)+, R5 
(SP)+, R4 
(SP)+, Rl 
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58 015046 000207 
59 
60 
61 
62 
63 

64 015050 
65 

66 00000.1 

Errors detected: 



RETURN 



; Top of TSWIN code (Window control blocks are allocated from this 
; point to the end of the overlay). 



WINTDP 



. END 



*#* Assembler stat i s t ;t c «. 



Work file reads 
Work file write;: 
Size of work file 
Size of core pool 
Operating system 







8354 Words < 33 Pages) 

17920 Words ( 70 Pages) 

R 1-1.1 



Elapsed time- 00:01:45 32 

DK: TSWIN, LP: TSWIN=DK: TSWIN. MAC/C/N: SYM 



TSWIN - 


- TSX-Plu 


5 Display W 


in do MACRO 


V05. 04 


Hon day 21- 


-Dec -87 07: 


45 Facie S-l 
















Cross reference 


table' <CREF 


V05. 04 ) 
























f.8BIT 


1-25 


3-:jo 


























*CTRLO 


1 -27 


67-24 


























*DETCH 


i -43 


83-1 B 


























*RFRSH 


1-27 


66-.i:> 


66-25 
























HSLKED 


1-42 


84-7;» 


























*SJ..ON 


1-42 


84-73 


























*V52EM 


1-22 


35-24 


42-21 


43-15 


74-16 


74-18 


74-27 


74-29 














$VNOTT 


1-29 


51-18 


52-18 
























$WDISP 


1-28 


1-43 


65-18 


66-14 






















AC*BLD 


1-33 


40-11' 


41-8 


41-9 


41-13 


68-53 


70-31 


70-32 


70-43 












AC«BLK 


1-3S 


40- IS 


4 1 -S 


41-11 


41-15 


68-53 


70-31 


70-32 


70-57 












AC*REV 


1-38 


40-15 


41-0 


41-12 


41-16 


68-53 


70-31 


70-32 


70-64 












AC* SET 


1-44 


71-20 


71-22 
























AC*ULN 


1-39 


40 -.15 


41 -S 


41-10 


41-14 


68-53 


70 31 


70-32 


70-50 












ACRCS 


7-34 


B-27 


9-21 


9-33 


9-56 


9-70 


9-97 


9-100 


10-10# 












AL*DHB 


1-39 


39-11 


39-20 


68-25 


73-13 




















AL*DHT 


1-39 


39-12 


39-19 


68-25 


78- 1 3 


78-17 


















AL^DWD 


1-39 


39-27 


39-34 


68-25 


73-25 




















ASATAT 


33-10 


33-;;?4 


36-42# 
























AW$132 


1-41 


36-48 


43-24 


68-22 


77-85 


84-104 


B4-105 
















AW*200 


1-41 


42-14 


42-37 


69-50 


71-37 


72-24 


72-33 


77-22 


77-57 


91- 


-14 


91-27 






AW$52 


1-31 
91-14 


7-19 
91-20 


42-14 


69-12 


70-24 


71-28 


72-10 


73-13 


76-14 


77- 


-16 


79-30 


80- 


-15 


AW*ACK 


1-41 


36-47 


43-24 


77-84 






















AW*AKH 


1-42 


3S-S 


38-18 


43-24 


75-33 


84-77 


















AW«DDC 


1-45 


3-72 


51-15 


64-14 


67-15 


67-83 


















AW* INS 


1-41 


36-42 


43-24 


76 19 






















AW*ORS 


1-41 


24-17 


36-50 


43-24 


48-15 


73-35 


00 22 
















AW*PRM 


1-43 


84~S3 


86-27 
























AW$PRT 


1-25 


3-54 


11-83 


43-24 


44 17 


44-21 


















AW*REV 


1-41 


36-49 


77-86 


84-104 


84-105 




















AWfRPT 


1-43 


36-51 


77-87 


84-44 






















AW*S52 


1-31 
77-16 


7-19 
79-30 


35-21 
80-15 


42-14 


43-12 


69-12 


70-24 


71-28 


72-10 


73- 


-13 


74-14 


76- 


-14 


AW*SPN 


1-27 


3-25 


87-12 


87-24 






















AW$SS 


1-44 


4-30 


4-33 


32-79 


32-90 


43-24 


















AW*VCR 


1-42 


36-52 


77-24 


77-88 


84-44 




















BUFCHR 


1-31 


1-40 


81-40 
























CATABL 


40-26 


4i-e# 


























CATEND 


40-30 


41-r/# 


























CCEXIT 


5-26 


5-27 
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66-9# 










WINIIMI 


1-17 


9S-6# 










WINPRT 


1-13 


88-26 


99-1 3# 








WINREL 


1-17 


S6-19 


92-8# 








WINSF 


1- IS 


64 9# 










WINSPN 


51-40 


52-8# 










WINSRC 


84-21 


84-98 


85-21 


86-37 


88- 


■19 


WINST 


1-lS 


65-9^S 










WINSTT 


84-61 


90-.iLl 


91 9# 








WINTOP 


1-47 


2-49 


98-12 


99-64# 






WINVEC 


83-33 


S3-37# 


83-45 
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93-S« 



89-37 94--15# 
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BUFMAP 


2-26# 


4-44 


53-15 


54-26 


55-18 


59-22 


60 -39 


61-21 


62-23 


68-45 


89-71 




DISABL 


2-6# 


4-44 


53-15 


54-26 


55-18 


59-22 


60 39 


61-21 


62-23 


67-20 


68-45 


89-71 


ENABL 


2-10# 


4-47 


53-18 


54-29 


55-21 


59-25 


60 42 


61-23 


62-25 


67-23 


68-48 


89-73 


ESCSEQ 


J.2-5# 


3 2- 1 5 


12-16 


12-17 


12-18 


12-19 


1 2-20 


12-21 


12-22 


12-23 


12-24 


12-25 




12-26 


12-27 


1 2-28 


12-29 


12-30 


12-37 


12-38 


12-39 


12-40 


12-41 


12-42 


12-43 




12-44 


12-'4n 


12-46 


12-47 


12 48 


12-49 


12-50 


12-51 


12-52 


12-53 


12-54 


12-55 




12-56 


12-57 


12-58 


12-59 


12-60 


12-61 


12-62 


12-63 


12--64 


12-65 


12-66 


12-67 




12-6S 


1 2-67 


12-70 




















OCALL 


2-1 6# 


52-23 


81 -~40 




















SEND 


2--39# 


68-90 


68-91 


69-19 


69-24 


69-25 


69-26 


69-31 


69-33 


69-38 


69-39 


69-43 




69-45 


69-46 


69-53 


69-55 


69-56 


69-62 


69-64 


69-66 


70-39 


70-45 


70-46 


70-52 




70-53 


70" 159 


70-60 


70-66 


70-67 


70-71 


71 ■•35 


71-36 


71-40 


71-41 


71-48 


72-20 




72-28 


72-37 


72-41 


72-50 


73-28 


73-31 


73-38 


73-39 


73-40 


74-20 


74-21 


74-22 




74-31 


75-35 


75-37 


76-22 


76-23 


77-45 


77-48 


77-59 


77-72 


78-16 


70-19 


78-21 




76-28 


78-29 


79-23 


79-38 


79-44 


79-47 


79-50 


80-29 


80-32 


80-38 


80-41 


80-44 




Bl-5 


81-23 


81-24 


82-27 


















UNMAP 


2~32# 


4-47 


53-18 


54-29 


55-21 


59-25 


60-42 


61-23 


62-25 


68-48 


89-73 
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